Top 10k strings from Utility Compilation 55 (19xx)(-).trd in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Utilities & Educational - [TRD] (TOSEC-v2007-01-01) /
Back to the directory listing
36 ---------------
32
24
21 --------------
20 ----------------
20
19
17
16
15
15
14 .............................
14 ............................
14
14
12
11 L-
10 \(
10 \)
10
9 /*****************************/
9 ..............................
9 char *s;
9 \)
9 BREAK;
8 ..................................
8 ................................
8 ...............................
8 ........................
8
7 -------------------------------------------------
7 ...
6 .......................................
6 ......................................
6 ..........................
6 \)
6 }
6 }
6 ! ! !
6
5 /* Hisoft C */
5 .........................................
5 ...........................
5 .........................
5 ................
5 (Y0+DY*MM-1
5 CHAR S[];
5 -----------------
5 \(
5 };break;
5 \)
5 !
5
4 char * ptr;
4 /* Standard Function Library */
4 ....................................
4 ......................
4 ....................
4 ..................
4 ..............
4 "UNIX",
4 static char *cs;
4 PRINTF
4 PDP-11
4 EXTERN
4 DOUBLE,
4 #DEFINE
4 CHAR S[];
4 ...
4 /(
4 STRUCT
4 BREAK;
4 /)
4 \(
4 }
4 \(
4 }
4 L-
4
4
4
3 ........................................
3 ...............
3 " GETCHAR
3 return lin;
3 _FILEBUF
3 REGISTER
3 PRINTF,
3 GETLINE,
3 DOUBLE,
3 CHAR *NAME;
3 ARGV[1],
3 #INCLUDE <STDIO.H>
3 while ((c = getchar())
3 static int c;
3 static char *result;
3 PUTCHAR
3 PRINTF
3 INT ARGC;
3 CHAR *ARGV[];
3 ! !
3 ptrBuf=Window;
3 WHILE (
3 LastKey=_down_key;
3 INT C;
3 CHAR C;
3 !=EOF && c!='\n')
3 --argv;
3 RETURN(I);
3 INT I;
3 {
3 UNION
3 INT I;
3 INT ARGC;
3 CHAR *S, *T;
3 CHAR *ARGV[];
3 ...
3 ...
3 {
3 CHAR *S;
3 \)
3 \(
3 ENUM
3 \)
3 (
3
3
2 }/* end stacker() */
2 struct fileinf *out,*in;
2 return STACK[I].LPTR;
2 return (sign * value);
2 printf("I=%d",I);
2 pbstack overflow
2 need an lvalue
2 keypressed()
2 int atoi(s)
2 inline(0xCD,0x0D6B);
2 for(i=0;i<len;i++)
2 find_I(I,mode)
2 dropLine(DropFlag=0);
2 char name[];
2 char *strcat(base, add)
2 arr(lin,row,LENGHT);
2 _colour(h,i)
2 _beep(DE,HL)
2 UNSIGNED,
2 HL,(ADRUP)
2 HL,(ADRDWN)
2 A,(ADRUP+1)
2 A,(ADRDWN+1)
2 ; LD (LFA16),A
2 /* by Shiljaev S.D. */
2 /* Scroll down function */
2 /* Copyright (C) 1984 Hisoft */
2 /* String Handling Functions */
2 /* */
2 .................................
2 .....................
2 ...................
2 .................
2 .............
2 **m~#"*mo&
2 (ADRUP+1),A
2 (ADRUP),HL
2 (ADRDWN+1),A
2 (ADRDWN),HL
2 #define NULL 0
2 ###~#fo###~#fo#~#fo
2 ###~#fo###~#fo
2 "ABOUT US"
2 }/*while*/
2 while(count--)
2 struct fileinf out_cat[];
2 static int TEST;
2 return i;
2 putc(i,2);
2 putc(h,2);
2 printf(" ");
2 int count;
2 inline(0x3A,&ROW,0x32,RowAdr);
2 inline(0x3A,&LIN,0x32,LinAdr);
2 inline(0x2A,&NEW_FO_ADR,
2 if(Key==_up_key)
2 if (i<0 | i>7) return -1;
2 continue;
2 arr(lin,row,LENGHT);
2 adr=0x5800+32*lin+row;
2 _setover(on);
2 TYPEDEF,
2 STRCMP.
2 REVERSE(S),
2 PUSH, POP
2 NEW_FO_ADR=new_fo_adr;
2 GETCHAR :
2 GETCHAR
2 FO_ADR=FontAdr;
2 FOR...................................
2 DOUBLE.
2 CONTINUE..............................
2 CONTINUE
2 BREAK.................................
2 ALLOCBUF.
2 26.5.
2 - STDERR
2 '0', '1'
2 #INCLUDE <STDIO.H>
2 #DEFINE BUFSIZE 512
2 while (argc--)
2 while (*s++) ++length;
2 while (*base++ = *add++);
2 while (*base) ++base;
2 static unsigned length;
2 static int c;
2 return min;
2 return result;
2 return length;
2 result = base;
2 printf(" ");
2 lin=FIRSTLIN;
2 length = 0;
2 int i,j,k;
2 inline(0x3A,&border,
2 for (i = 0; i < 4; ++i)
2 char *base, *add;
2 char *a;
2 char *a, *b, *c;
2 argv = ¶m_byte_count + argc;
2 argc = param_byte_count/2 - 1;
2 _FILEBUF,
2 UNGETCH
2 TYPEDEF
2 POWER.
2 NUMBER
2 INT. (
2 GETINT
2 GETCHAR
2 F_cod=0x0E;
2 FILE *fp;
2 DOUBLE;
2 DOUBLE
2 *cs = 0;
2 #DEFINE,
2 ! !
2 {if(LastKey!=Key)
2 lin+=DLIN;
2 continue;
2 RETURN;
2 REGISTER INT C;
2 INT,
2 FILE *FP, *FOPEN();
2 DOUBLE,
2 DISTANCE
2 CHAR BUF[BUFSIZE];
2 ---------------------------------------------------------
2 ----------
2 ((c==-1 && cs==s) ?
2 while((i--)&&(ptrBuf != 0)) ptrBuf=showDown(ptrBuf);
2 ptrBuf=EndTxt;
2 lenght=256*num_s;
2 i=LLIN-FLIN+1;
2 find_f_s(&trk,&sek,&num_s,status,F_begin,F_end);
2 WHILE (FAHR <= UPPER) {
2 STRCMP(S, T) /* RETURN <0 IF S<T, 0 IF S==T, >0 IF S>T */
2 REGISTER HEADER *P, *G;
2 NULL : s );
2 MAIN() /* COUNT CHARACTERS IN INPUT */
2 LastKey=_up_key;
2 INT LOWER, UPPER, STEP;
2 IF ( C == '\N' )
2 ExitBufFlag=1;
2 ATOI(S) /* CONVERT S TO INTEGER */
2 WHILE (--ARGC > 0)
2 RETURN(NULL);
2 RETURN(EOF);
2 INT X,N;
2 INT LIM;
2 IF (C >= '0' && C <= '9')
2 IF (A > B)
2 FILECOPY(STDIN);
2 ELSE IF (
2 if (*argv < min) min = *argv;
2 goto oldbuf;
2 S[I++] = C;
2 PRINTF("%4.0F %6.1F\N", FAHR, CELSIUS);
2 LEAP = YEAR%4 == 0 && YEAR%100 != 0 \!\! YEAR%400 == 0;
2 INT X;
2 INT N;
2 CHAR S[], T[];
2 *cs++ = c;
2 {*t+=dir;
2 \) ELSE \(
2 S[I] = C;
2 STRUCT DATE *PD;
2 NL = NW = NC = 0;
2 INT N;
2 INT C;
2 INT ARGC;
2 IF (
2 IF (
2 ELSE
2 CHAR *ARGV[];
2 ++NC;
2 #DEFINE MAXLINE 1000
2 if(direction==_fire_key) goto endwhile;
2 Z = B;
2 Z = A;
2 WRITELINES(LINEPTR, NLINES) /* WRITE OUTPUT LINES */
2 WHILE ((C = GETCHAR()) != EOF)
2 PRINTF("\NWHITE SPACE = %D, OTHER = %D\N",
2 PRINTF("DIGITS =");
2 INT X, V[], N;
2 INT NLINES;
2 I = 0;
2 FOR (I = 0; I < 10; ++I)
2 ELSE
2 CHAR *LINEPTR[];
2 BINARY(X, V, N)
2 0xed,0x5b,&de,
2 0xed,0x4b,&bc,
2 0x2a,&hl,
2 /)
2 ++I;
2 RETURN(NULL);
2 OF THEIR PARTY
2 NOW IS THE TIME
2 MEN TO COME TO THE AID
2 FILECOPY(FP);
2 ELSE IF (COND > 0)
2 ELSE
2 = \(
2 0xD3,254);
2 -------------------------------------------
2 *
2 (
2 {
2 WHILE (GETLINE(LINE, MAXLINE) > 0)
2 VAL = 10 * VAL + S[I] - '0';
2 RETURN(P);
2 RETURN(NULL);
2 INT LIM;
2 ELSE
2 CHAR LINE[MAXLINE];
2 CHAR *W;
2 !
2 !
2 \);
2 STRLEN(S) /* RETURN LENGTH OF STRING S */
2 INT N;
2 ELSE
2 WHILE (--ARGC > 0)
2 BREAK;
2 \!\! D.YEAR % 400 == 0;
2 #DEFINE
2 ! !
2 }
2 \)
2 \(
2 Z = A;
2 IF (
2 ;
2 RETURN(C);
2 OP2=POP();
2 ++I;
2 CLEAR();
2 ...
2 RETURN(0);
2 BREAK;
2 IF (
2 ;
2 *
2 \(
2 = \(
2 \);
2 208 STR.
2 --------------------
2 \);
2 SIZEOF
2 L-
2 INT KEYCOUNT;
2 CHAR *KEYWORD;
2 Y = *PX + 1
2 Y = *
2 INT *PX;
2
2
1 ~a:18. C
1 }/*end showFil */
1 }/* end showBuf() */
1 }/* end */
1 {show big lines
1 {a:17. C
1 { static unsigned NEW_FO_ADR,FO_ADR;
1 { static LIN,ROW;
1 { char * LPTR;
1 { return ((c < 32)||(c>127)) ? '?' : c ; }
1 {
1 zer-bejsik I DR.). pO VELANI@
1 xa:16.5. C
1 x:\ibmdos.com
1 x:\ibmbio.com
1 wup64(count)
1 win64(frow,lrow,flin,llin)
1 win64(FROW,LROW,FLIN,LLIN);
1 while(direction != _fire_key)
1 while(*s == ' ') ++s;
1 while((ptrBuf != 0)&&((Key=getcontr()) != _fire_key))
1 while((*(--ptr)!=LF)&&(ptr>=Window)) count++;
1 while(((c=*s++)>='0') && (c<='9')) value=10*value+c-'0';
1 while(((Key=testflag=getcontr()) != _fire_key)&&(Key!=_inv_key)
1 wdwn64(count)
1 wdwn64(1+LLIN-FLIN);
1 wdwn64((DropFlag)?(count/drow+1):1);
1 wYPLA^IWAEM AWTORSKIE GONORARY.
1 wY MOVETE OBRATITXSQ PO ADRESU:
1 wA[IM OBRATNYM ADRESOM!
1 w PRODAVE IME@TSQ POLNYE GODO-
1 w PLANE 1995 GODA:
1 void srand(n)
1 void qsort(list, num_items, size, cmp_func)
1 void puts(s)
1 void poke(address, value)
1 void long_set(a, n, d)
1 void long_multiply(c, a, b)
1 void long_init(a, n1, n0)
1 void long_copy(c, a)
1 void long_add(c, a, b)
1 void free(block)
1 void fputs(s, fp)
1 vkeep stre
1 va:16. C
1 use a predeclared structure for parameters
1 unsigned strlen(s)
1 unsigned new_fo_adr;
1 unsigned lenght;
1 unsigned addres,lenght;
1 undefined variable(s)
1 undefined variable
1 undefined label:
1 typedef struct _header HEADER, *HEADER_PTR;
1 typedef int FILE;
1 typedef int FILE;
1 typedef char *__TRD_ptr;
1 typedef char * char_ptr;
1 typedef char * __char_ptr;
1 type should be function
1 trd.l4 CpbY
1 too much initialisation data
1 this variable was not in parameter list
1 testflag='?';
1 tester(chr)
1 switch(stat)
1 switch(function){
1 structure cannot contain itself
1 struct stack
1 struct fileinf *fil_dat;
1 struct fileinf *fil,*maska;
1 struct fileinf
1 struct _header
1 strcat(name,String);
1 storage class not valid in this context
1 stdio.l Cpb
1 stdio.h Cpb]
1 static unsigned ROW,LIN;
1 static unsigned FROW,LROW,FLIN,LLIN;
1 static unsigned Addr,Len;
1 static int step;
1 static int caps;
1 static int c,value,sign;
1 static int border;
1 static int SCROLL;
1 static int Maska_num=9;
1 static int KEY;
1 static int KEM_J;
1 static char _fire_key,
1 static char Flag,F_cod;
1 static char COD;
1 static char *Scr_ptr=0,*byte_ptr=0;
1 stacker(ptr,len,dir);
1 stacker(ptr,count,mode)
1 showUp(ptr)
1 showRight(ptr)
1 showLeft(ptr)
1 showFil(fil_dat)
1 showDown(ptr)
1 showBuf(stat)
1 show(name)
1 setrow64(row)
1 setpos64(row,lin)
1 setpos64(FROW,FLIN);
1 setpos(lin,row)
1 setpos(10,4*mode+10);
1 setpos(0,27); printf("ON ");
1 setpos(0,27); printf("OFF");
1 setpos(0,1);for(z=0;z<8;z++)printf("%c",fil_dat->name[z]);
1 setlin64(lin)
1 set_control_key(left,right,up,down,fire,function,exit)
1 set_control_key('o','p','q','a','m',7,226);
1 scr_cat(out_cat)
1 rsec(NSEC,TREC,SECT,BUFF)
1 rew`". kORPUNKT OTKRYT S 10
1 rew`". iZDAETSQ
1 rew` S ODNOIMEN-
1 return(count);
1 return row;
1 return ptrNext;
1 return ptr;
1 return pr_mode(ptr,(1));
1 return num;
1 return lin;
1 return key;
1 return f_error;
1 return TEST;
1 return KEY;
1 retrow64()
1 retlin64()
1 repper=*(byte_ptr+23562);
1 repdel=*(byte_ptr+23561);
1 rasp=*(byte_ptr+23608);
1 ra:15.6. C
1 rAZRABATYWAETSQ NA[IMI KOLLE-
1 qa:15. C
1 qa:14. C
1 put64(chrcod)
1 ptrNext=ptr;
1 printf("\nFile name?\n");
1 prichar(c)
1 pr_mode(ptr,dir)
1 pr_mode(ptr,(-1));
1 plot(on,x,y)
1 pip=*(byte_ptr+23609);
1 pa:13. C
1 pa:12. C
1 pERERYW S 14 DO 15 ^.
1 num+=lin-FIRSTLIN;
1 not in switch
1 not in loop or switch
1 not in loop
1 not a preprocessor command
1 not a defined member of a structure
1 no arrays of functions
1 nn ---------------------
1 need a type name
1 need a pointer
1 need a constant expression
1 need a : to follow a ? - check bracketting
1 nclude"1:Tv.H1.2"
1 name[2]=0;
1 name[1]=':';
1 name[0]=driv;
1 na`}ih" - KNIGA 208 STR. pEREWOD
1 na:11. C
1 n SS+a - return to TR-DOS
1 n EDIT - new disk
1 multiple use of identifier
1 multiple default statements
1 missing 'while'
1 missing ')' in function declaration
1 missing ' '
1 macro buffer full
1 ma:10. C
1 mOSKWU, OTKRYT POSTOQNNO DEJS-
1 mOSKWA, nOWYJ aRBAT, 2. 19-E
1 literaturu PO
1 line(on,dx,dy)
1 lin=key_control(lin,row,maxnum-num);
1 len=strlen(String);
1 kodah" - 272 STR. mNOGIE S^ITA@T
1 key_control(lin,row,maxl)
1 kami" - KNIGA 192 STR. iGROWYE
1 ka:9. C
1 ka-zakaza S TEKU]IMI CENAMI, A
1 int z;/*any case*/
1 int trk,sek,num_s;
1 int strcmp(s, t)
1 int status;
1 int sign(n)
1 int rand()
1 int peek(address)
1 int min(param_byte_count) auto
1 int max(param_byte_count) auto
1 int lin,row;
1 int lin,row,maxl;
1 int lin,row,len;
1 int lin,row,len,mask;
1 int len,i;
1 int key,retkey;
1 int ispunct(c)
1 int isprint(c)
1 int iscntrl(c)
1 int isascii(c)
1 int isalnum(c)
1 int i,f_error;
1 int fil_er;
1 int chr,count;
1 int abs(n)
1 int F_begin,F_end,F_folow,F_old;
1 int FROW,LROW,FLIN,LLIN,ROW,LIN;/* for text window */
1 inline(0xFD,0xCB,0x01,0x6E,0x28,0x07,0x3E,0x01,0x32,&TEST,0x00,0x00,0x00,0x00);
1 inline(0xDB,0x31,/*in(a),#31*/
1 inline(0xCD,WupAdr);
1 inline(0xCD,WdwnAdr);
1 inline(0x3E,0x16,0xD7,
1 inline(0x3A,23560,0x32,&KEY);
1 inline(0x01,0x00,0x00,0xC5,0xC3,0x2F,0x3D);
1 illegal parameter type
1 ig lines");
1 if(ptrBuf==0)ExitBufFlag=0;
1 if(ptr<Window) return 0;
1 if(ptr != 0)/*write to stack*/
1 if(num>maxnum)num=maxnum;
1 if(len<8) for(i=len;i<9;i++)String[i]=' ';
1 if(keypressed())
1 if(key != 0){
1 if(file_fun("64CHR95 ",0,0,'l') !=0)
1 if(f_error != 0){
1 if(chr==13)
1 if(chr==10)
1 if(Key==_right_key) Key=_down_key;
1 if(Key==_left_key) Key=_up_key;
1 if(KEM_J == 0);
1 if(ExitBufFlag != 0)
1 if(*s =='-') {++s;sign=-1;}
1 if((input=fopen(name,"r")) != NULL)
1 if((KEM_J==8)) key=_up_key;
1 if((KEM_J==4)) key=_down_key;
1 if((KEM_J==2)) key=_left_key;
1 if((KEM_J==16)) key=_fire_key;
1 if((KEM_J==1)) key=_right_key;
1 iME@TSQ W PRODAVE:
1 i8.7 C
1 he wrong file, find another header
1 goto needs a label
1 goto lebel2;
1 gets(String);
1 getcontr()
1 getName(name,driv,tip)
1 generated code area is full
1 g8.6. C
1 for(i=num;i<=(num+LASTLIN-FIRSTLIN);i++)
1 for(i=0;i<=8;++i)
1 for(i=0;i<8;i++)
1 font(new_fo_adr)
1 findfil(in_cat,num,maxnum)
1 find_f_s(t,s,ns,dir,BF,EF)
1 filtrator(fil,maska)
1 file_fun(f_name,addres,lenght,function)
1 f_name[8]=0;
1 f_error=*cast(__TRD_ptr)23823;
1 f_cat(out_cat)
1 f8.5. C
1 extern unsigned strlen();
1 extern char showBuf();
1 extern char *strcat();
1 extern char *strcat(), *strcpy(), *calloc();
1 extern char *stacker();
1 extern char *showUp();
1 extern char *showRight();
1 extern char *showLeft();
1 extern char *showDown();
1 extern char *pr_mode();
1 extern char *fgets(), *gets(), *sbrk();
1 expecting a primary here
1 exit: TRD_exit();
1 end_cat: out_cat[count--].name[0]=0;
1 else if(*s =='+') ++s;
1 else /* scroll stack, not write */
1 e8.4. C
1 duplicate declaration of structure tag
1 duplicate declaration - type mismatch
1 duplicate declaration - storage class mismatch
1 duplicate declaration
1 drow=LROW-FROW;
1 dropLine(flag)
1 dropLine(DropFlag=1);
1 direct execution not possible when translating
1 define include diagnostlist direct error translat
1 d8.3. C
1 connect(out,in)
1 char left,right,up,down,fire,function,exit;
1 char function;/* l-LOAD, v-VERIFY, s - SAVE, f - FIND FILE, d - DELETE */
1 char f_name[];
1 char driv,tip ;
1 char direction;
1 char color;
1 char chrcod;
1 char String[64];
1 char LastKey,*ptrBuf;
1 char LF,CR;
1 char Key,repdel,repper,rasp,pip;
1 char *strcpy(dest, source)
1 char *sbrk(n)
1 char *gets(s)
1 char *fgets(s, n, fp)
1 char *calloc(n, size)
1 char _rnum[4];
1 cc1 Cpb
1 capstest()
1 cannot use this operator with float arguments
1 cannot open file
1 can only define identifiers as macros
1 can only call functions
1 c8.2. C
1 beep(duration,pitch)
1 bad type combination
1 bad operand type
1 bad function return type
1 bad formal parameter list
1 bad declarator
1 bad declaration
1 bad character constant
1 b8.1. Cp
1 b7.9. C
1 arrcol(lin,row,len,mask)
1 arr(lin,row,len)
1 aSSEMBLER I MA[INNYJ KOD. o^ENX
1 a7.8. C
1 _setover(on)
1 _dos(BC,DE,HL)
1 _7.7. C
1 _7.6. C
1 ^ITATELQMI I OTME^AEM, ^TO ON
1 ^ATNYE PLATY ZAWODSKOGO PROIZ-
1 ]7.5. C
1 \TU KNIGU LU^[EJ NA[EJ RABOTOJ,
1 \TI GODY DESQTKI TYSQ^ L@DEJ
1 \7.4. C
1 [7.3. C
1 ZX-SPECTRUM:
1 ZX-SPECTRUM,
1 ZX-SPECTRUM c 1989
1 ZX-FORUM", "ZX FORUM-2" -
1 ZARUBEVNYE ANALOGI.
1 ZAKAZ^IKA K KNIGE PRILAGAETSQ
1 Z7.2. C
1 Z,LFAB7 ;FOR NOT PARITY CHR
1 Z,L4 ;LAST LINE IN WINDOW
1 Z,L0 ;NOT PRINT ENDING TOO BIG LINES
1 Y7.1. Cp
1 XTERNAL \! STATIC);
1 X6.9. C
1 Window=Image;
1 WYPLATOJ WOZNAGRAVDENIQ AWTORAM.
1 WYE SBORNIKI ZA 1991, 1992, 1993
1 WSCRUP ;SCROLL WINDOW
1 WO[ED[IE W VURNAL PO PRI^INE EGO
1 WOJ KOMPLEKT 1995 GODA (S WYSYL-
1 WODSTWA (W KOMPLEKTE PRO[ITYE
1 WHILE, FOR
1 WAVNO, ^TO S EE POMO]X@ ^ITATELX
1 W6.8. C
1 V6.7. C
1 V 3.02R 48K
1 UROWN@ PROGRAMMIROWANIQ.
1 UNSIGNED (
1 UDA^NO WWODIT ^ITATELQ W SAMYJ
1 Type y to run:
1 Tv.H1 Cpb
1 TWU@]IJ KORPUNKT PO ADRESU:
1 TWAM I PRIGLA[AEM WSEH, KTO UW-
1 TUPNOJ FORME "OT NULQ" OSWOITX
1 TREEINFONCD
1 TRD_exit()
1 TOWLENIEM RAZLI^NYH USTROJSTW,
1 TAKVE PO L@BYM DRUGIM WOPROSAM
1 TAKOGO PARTNERSTWA.
1 T.K. WSE PRIMERY POSTROENY "OT
1 T.K. ONA POZWOLQET W O^ENX DOS-
1 Swobodno>>>>>
1 String[8]=0;
1 Stertyh>>>>>>>>
1 ScrNum=findfil(scr,ScrNum,MaxNum);
1 STRLEN(S)
1 STRCAT(S,T),
1 STRCAT(S, T)
1 STDIO.H),
1 STATIC ;
1 SPECTROFON" (
1 SPECTROFON"
1 SOZDANIQ SAMYH RAZNOOBRAZNYH PE-
1 SKIDOK, POSTAWKA PO PO^TE I REK-
1 SISTEMNYH, TAK I LU^[IH IGROWYH,
1 SHTIRLIC
1 SFERE INFORMACIONNO-PROGRAMMNOGO
1 SCANF, GETC
1 SANIQ NAIBOLEE RASPROSTRANENNYH
1 SAMODELX]IKOW I SODERVIT BOLX[OE
1 S6.6. C
1 S$=" "
1 S 1991 GODA I QWLQETSQ NASTOQ]IM
1 S ANGLIJSKOGO IZDANIQ. o^ENX
1 RY. pREDUSMOTRENA GIBKAQ SISTEMA
1 RUDNI^ESTWU!
1 ROW I PRODAWCOW NA[EJ LITERATU-
1 ROW I INTERESNEJ[EE SODERVANIE
1 ROLLERA DISKOWODA DO "SWETOWOGO
1 RIFERIJNYH USTROJSTW - OT KONT-
1 RE[ENIQ KONKRETNOJ ZADA^I".
1 RESTRICTION: use assignment or move() to initialise automatics
1 RESTRICTION: macros may not have parameters
1 RESTRICTION: cannot nest includes
1 RESTRICTION: can't manage initializers yet
1 RESTRICTION: Floating Point not implemented
1 RESTRICTION : floats not implemented
1 REIZDANIJ I KOMPLEKT ZA 1994 G.
1 REGISTER;
1 READ, WRITE, OPEN
1 R6.5. C
1 QZYKOW (paskalx, fort, la-
1 PROGRAMMY.
1 PROGRAMMY DLQ SAMOSTOQTELXNOGO
1 PROGRAMMNYE SREDSTWA, MNOGIE IZ
1 PROGRAMM, PODGOTOWLENNYH NA[IMI
1 PRINCIPU SAMOGO L@BIMOGO ^ITATE-
1 POZNAKOMILISX S NA[EJ PRODUKCI-
1 POSWQ]ENNYJ grafike.
1 PO PRODWIVENI@ IH NA RYNOK S
1 PDP-11, HONEYWELL 6000, IBM
1 PARTNERAMI I KOLLEGAMI. dANNYJ
1 P6.4. C
1 OTHERPROG.
1 OTD. SWQZI, 1-J \TAV OPERACION-
1 OT NA^INA-
1 OGRANI^ENNOJ PE^ATNOJ PLO]ADI.
1 OBESPE^ENIQ WLADELXCEW KOMPX@TE-
1 O
1 NYM NAZWANIEM. w NIH OPUBLIKOWA-
1 NY STATXI NA[IH ^ITATELEJ, NE
1 NOGO ZALA. oKNO S WYWESKOJ
1 NLSFUNC EXE
1 NDIGIT[0], NDIGIT[1],..., NDIGIT[9].
1 NC,L2 ;LIN<LLIN
1 NC,L1 ;ROW<LROW
1 NC MNU
1 N6.3. C
1 MaxNum=f_cat(scr);
1 MY PREDLAGAEM RAZNOOBRAZNYE PE-
1 MM=NO*(MM<1
1 MIKROSHEMY pzu I DOKUMENTACIQ).
1 MAT & SHI SOFT",
1 M6.2. C
1 LQMI RAZDELA
1 LQETSQ NA DISKETAH. s FEWRALQ
1 LIMIT: no more memory
1 LIMIT : too much global data
1 LIMIT : too many types
1 LIMIT : too many case statements
1 LIMIT : name table full
1 LIMIT : local symbol table full
1 LIMIT : global symbol table full
1 LIMIT : expression too complicated - too many operators
1 LIMIT : expression too complicated - too many arguments
1 LI POSTUPATX MO]NYE I RAZWITYE
1 LEX
1 LEPNYE OPISANIQ PROGRAMM, KAK
1 LEGKO PREODOLEWAET PSIHOLOGI^ES-
1 LEGKIJ QZYK PROGRAMMIROWANIQ,
1 LAMNO-INFORMACIONNAQ PODDERVKA.
1 L6.1. Cp
1 KRASO^NOJ OBLOVKE. sOZDANY PO
1 KOTORYH PREWOSHODQT KLASSI^ESKIE
1 KOLI^ESTWO SHEM I PROGRAMM DLQ
1 KOJ WSEH WY[ED[IH NOMEROW).
1 KNIGOJ MNOGIH PO^ITATELEJ
1 KNIGI OB_EMOM 208 STR. KAVDAQ, W
1 KNIGA 208 STR. pREDSTAWLENY OPI-
1 KNIGA 192 STR. pREDNAZNA^ENA DLQ
1 KLADEZEM SAMOJ RAZNOOBRAZNOJ IN-
1 KIJ BARXER PRI PEREHODE K NOWOMU
1 KEYTAB .
1 KEM_J &= 0x001F;
1 IZ NIH STALI NA[IMI SOAWTORAMI,
1 IX ;NEXT CHR BYTE IMAGE
1 ISSLEDOWATX IGROWYE PROGRAMMY,
1 INT, FLOAT
1 IGROWYH I SISTEMNYH PROGRAMM.
1 IF-ELSE ,WHILE ,FOR
1 IDET PO NARASTA@]EJ. k NAM NA^A-
1 I5.12. C
1 I5.11. C
1 HL,BC ;ADR CHR IN GNAKOGENERATOR
1 HL,(SCRPOS)
1 HISOFT-C Compiler V1.1B
1 HELLO, WORLD.
1 HEADER _base, *_allocp;
1 H5.10. C
1 H ; NEXT LINE ON SCREEN
1 GOJ ORIGINALXNOJ INFORMACII.
1 GODY, WYDERVAW[IE UVE PO 5-6 PE-
1 GETCHAR()
1 GETCH-UNGETCH,
1 GAMI IZ GRUPPY "
1 GAME
1 G.mOSKWA). "
1 Fman.l22Cpb
1 Fajlow>>>>>>>>>
1 F_cod=0x0A;
1 FORMACII. pROFESSIONALIZM AWTO-
1 FLAGS. IS_EXTERN, FLAGS.IS_KEYWORD
1 FILENAME.
1 FILE *input,*fopen();
1 F5.9. C
1 ERROR - 27 - undefined symbol
1 ELSE, WHILE
1 EJ, NAU^ILISX PROGRAMMIROWATX,
1 EDLIN COM
1 E5.8. C
1 E5.7. C
1 Dn Text_Viewer ver 1.0
1 Destination of an assignment must be an lvalue
1 DRIVER SYS
1 DOUBLE -
1 DO 17 ^ASOW (KROME WOSKRESENXQ).
1 DISTRIBUCII IGROWYH I SISTEMNYH
1 DISKETA S SAMIMI QZYKAMI.
1 DISK QWLQETSQ HORO[IM PRIMEROM
1 DIRECTORY
1 DAWNO SDELALI EGO NASTOLXNOJ
1 Cannot initialise this (disallowed type)
1 Cannot initialise this (disallowed storage class)
1 CONVER Comander
1 C5.6. C
1 C,EXT_UP ;SCROLL END EXIT
1 BETA
1 BC,(FO_ADR);FONT_ADR
1 BC ;CLS DOWN LINE
1 B,A ;NEXT LIN IS END ?
1 B,#08 ;COUNT 8 BYTES
1 B ;UP+1=DOWN ?
1 B ;RIGHT-LEFT=LEN
1 ARGV[ARGC-1].
1 ARG1, ARG2
1 ANOTHERPROG.
1 ANALIZIROWATX INFORMACI@. mNOGIE
1 ALLOCBUF.
1 AID_617 EXE
1 AIDSTESTEXE
1 ABOUT USB>
1 A5.5. C
1 A29! T
1 A,D ;FOR PARITY CHR
1 A,(LFA16) ;PARITY FLAG
1 A,(HL) ;IF PARITY COD
1 A,(HL) ;IF NOT PARITY COD
1 A,(FLAG_1) ;FLAG_1
1 A,(CHRCOD)
1 A W PRILOVENII ZAPISANY SAMI \TI
1 @]IH DO PROFESSIONALOW, K SOT-
1 @=Kowalewskij
1 ???????????
1 ?5.4. C
1 ?............................
1 >5.3. C
1 =5.2. C
1 =*]\##"]\>o2
1 <5.1. Cp
1 ;WINDOW COORDINATES
1 ;SET AT COODINATES B=LIN(1-24),C=ROW(1-32)
1 ;SCROLL WINDOW UP ON ONE LINE
1 ;SCROLL WINDOW SUBROUTINE
1 ;SCROLL WINDOW DOWN ON ONE LINE
1 ;PRINT CHR SUBROUTINE
1 ;IF DROP=0 NOT PRINT ENDING TO BIG LINES
1 ;FONT_ADR
1 ;FONT ADDRES
1 ;CALCULATE ADDRES OF WINDOW LINE
1 ;ADDRES IN "HL"
1 ;64.A95 - FILE
1 ;4.11. C
1 ;"27.10.1995" ADDING DROP FUNCTION
1 ;"19.07.1994" 64.A94
1 ; TOGGLE PARITY FLAG
1 ; PRINT SIMBOL IN "A"
1 ; ONE CHR IS READY ON SCREEN
1 ; NOW SCROLL WINDOW
1 ; NOW ATTIBYTE
1 ; NEXT LINE
1 ; FIND ADR CHR IN GNAKO_GENERATOR
1 ; 64_CHR_PRINT_WINDOW_DRIVER
1 ; ***** FUNCTIONS *******
1 ; (*++ARGV)[0] -
1 ; XOR A
1 ; ORG #F000
1 ; LD A,1
1 ; LD A,(LLIN)
1 ; LD (LIN),A
1 ; DEC H ;OLD SCR ADR
1 ; CALL #0BDB ;SET ATTRIBYTE
1 :4.9. C
1 :4.10. C
1 : STRLEN, STRCPY, STRCAT
1 : PRINTF
1 : HONEYWELL,
1 : = D.YEAR % 4 == 0 && D.YEAR % 100 != 0
1 : 160022,
1 : TREENODE
1 : READ
1 : PRINTF
1 : COMP -
1 : (++P)->
1 :
1 94.8. C
1 9 3 1 13 78 0 7
1 84.7. C
1 8 3 1 14 78 2 7
1 7 3 1 15 78 0 7
1 64chr.l1Cpb
1 64.6. C
1 63650 ;FOR "C" PROGRAMM
1 62881,2655
1 6!2 T
1 6 3 1 16 78 2 7
1 5 3 1 17 78 6 8
1 44.5. C
1 4 3 1 18 78 4 7
1 370, HONEYWELL 6000, INTERDATA 8/32.
1 34.4. C
1 3 3 1 19 78 3 0
1 24.3. C
1 2.1. Cp
1 1994 GODA IZDAETSQ EVEMESQ^NO.
1 1991 TJU B-disk version
1 10 9 19 8 42 0 7
1 1.1. Cp
1 1!7 T
1 1!6 T
1 1!5!5 T
1 1!5!4 T
1 1!5!3 T
1 1!5!2 T
1 1!5!1 T
1 04.2. C
1 0.5555... .
1 /g}/o#:#w<2#w
1 /4.1. Cp
1 /3.9. C
1 /*return TR-DOS error*/
1 /*==!=++--&&||<=<<>=>>->
1 /***************/****************************/
1 /****************************/
1 /****** FILE SYSTEM ******/
1 /*** System Interface ***/
1 /* v1.2 12.11.94 */
1 /* test 5-bit FLAGS */
1 /* showBuf return down, up or fire key */
1 /* reset 5-bit FLAGS */
1 /* printf(" b - set borber\n");*/
1 /* if press caps shift then caps=1, */
1 /* if flag=1 then print big lines on next screen position */
1 /* if flag=0 then lines is dropped and last simbols in lines not prints */
1 /* get pressed key code and */
1 /* end 64chr.l */
1 /* draw arrowhead pointer */
1 /* connected new font to 64CHR driver */
1 /* anather caps=0 */
1 /* Tv.H1 */
1 /* Text Viever */
1 /* TR-DOS library 22.08.93*/
1 /* TR-DOS file functions*/
1 /* TR-DOS error=0 */
1 /* Storage Alloc. Structure and Variables */
1 /* Spectrum Graphics and
1 /* Some arithmetic functions */
1 /* Set positions row(0-64),lin(0-23) */
1 /* Set Window row(0-64),lin(0-23) */
1 /* Last changed 20 Nov 1984 */
1 /* Last changed 10 Dec 1984 */
1 /* Functions for 32 bit int. arithmetic */
1 /* File manager library */
1 /* End trd.l */
1 /* Date 14.11.94 */
1 /* Char. Test and Manipulate. */
1 /* CAT TRDOS routine */
1 /* 27.10.94 edited for 64CHR95, added DROP func */
1 /* 19.09.94 */
1 /* grub around in the store */
1 /* from "Learning to Program in C" */
1 /* built-in for efficiency */
1 /* Version for ZX Spectrum */
1 /* Storage Allocation and Freeing */
1 /* Sorting function - a Shell sort */
1 /* Pseudo-Random Number Generator */
1 /* NB - the common ones are */
1 /* Function type forward declarations */
1 /* Format conversion routine */
1 /* File system Structure */
1 /* An illustration of how to */
1 /* - ASCII to binary integer */
1 /* Header for ZX Spectrum */
1 /* for non-int library functions */
1 /* (Heap Management) */
1 /* End Header */
1 /* End */
1 .3.8. C
1 .15.1-15.3.
1 ...........................................
1 ..........................................
1 .....................................
1 ...................................
1 .......................
1 ............
1 ...........
1 . 17.13.).
1 . 15.2, 16.7.
1 . 15.1, 15.2
1 . 9.12),
1 . 19.2.
1 . 16.8.
1 . 16.6.
1 . 16.6),
1 . 15.4)
1 . "TxtView1" -
1 . 18)
1 . 16.5.
1 . 16.5),
1 -3.7. C
1 --------------------------------------
1 - '0'/.
1 ,3.6. C
1 , \( ... \) -
1 , INT A,B,C; -
1 , I += 2.
1 , GETLINE.C
1 , *COMP -
1 , 'A' -
1 , #INCLUDE,
1 , OTHERPROG
1 , COPY ,
1 , C -'0'-
1 , 5.0/9.0
1 , MONTH_DAY,
1 , HELLO.C ,
1 , GETBITS(
1 , "..";
1 , "->"
1 , X3D
1 , X&0177700,
1 , MAX(A,B,C) -
1 ,
1 +3.5. C
1 *W\#"S\"K\6
1 *LINEPTR[I]
1 *3.4. C
1 *&-!~VU
1 )3.3. C
1 )3.2. C
1 ).........................
1 )..................
1 ),X0-DX;S$
1 (sy<<8)+sx;
1 (Y0+DY*M-1
1 (SCRPOS),HL
1 (LIN),A ;NEXT LIN
1 (IX+0) ;CHR_BUFF ADR
1 (HL) ; ADR ON SCREEN
1 (ALLOCP),
1 (3.1. Cp
1 (*PD).YEAR
1 '2.12. C
1 '2.11. C
1 '.........................
1 '........................
1 '.....................
1 '...........
1 '..........
1 &2.10. C
1 %2.9. C
1 $$=? STXW<>RP|^&OQ+-*/%
1 #include?1:trd.l4?
1 #include?1:Fman.l22?
1 #include?1:64chr.l1?
1 #define WupAdr ChrAdr+15
1 #define WdwnAdr ChrAdr+21
1 #define WINCLR 0x60
1 #define STACKSIZE 26
1 #define RowAdr ChrAdr+1
1 #define Pr64Adr ChrAdr+9
1 #define MAXFILES 128
1 #define MAXBUF 6912
1 #define LinAdr ChrAdr+2
1 #define LRowAdr ChrAdr+4
1 #define LLinAdr ChrAdr+6
1 #define LENGHT 8
1 #define LASTROW 31
1 #define LASTLIN 9
1 #define HEAPSIZE 1000
1 #define HEADLIN 0
1 #define HEADCLR 0x50
1 #define FontAdr ChrAdr+7
1 #define FRowAdr ChrAdr+3
1 #define FLinAdr ChrAdr+5
1 #define FIRSTROW 24
1 #define FIRSTLIN 1
1 #define EOF -1
1 #define EOF (-1)
1 #define DROW
1 #define DROPAdr ChrAdr+27
1 #define DLIN 1
1 #define ChrAdr 63650
1 #define void int
1 #define TRUE 1
1 #define NULL 0
1 #define FALSE 0
1 #define ERROR -1
1 #define EOF -1
1 #20 ;SPASE
1 #01 ;DROPS LONG LINES AVAIBLE
1 #00,#00,#00,#00,#00,#00,#00,#00
1 #00,#00,#00
1 ###~#fo#~#fo
1 #"a\"c\"e\*
1 "inforkom" BERET NA SEBQ FUNKCII
1 "about us"
1 "TxtView1","HISOFT-C","ABOUT US"
1 "EXTERNAL"
1 "<INFILE"
1 ";
1 "2.8. C
1 "2.7. C
1 " ISUPPER
1 " INO_T -
1 !2.6. C
1 !2.5. C
1 } ExitBufFlag=1;
1 { key=keyfind();
1 wup64(1);
1 while(Key=getcontr() == 0);
1 while((chr=*(ptrNext++)) != LF)
1 unsigned duration,pitch;
1 trk=fil_dat->t;
1 struct fileinf scr[MAXFILES];
1 struct fileinf in_cat[];
1 struct fileinf fil[16],FILTER;
1 status=0;/*first show*/
1 static unsigned ROW;
1 static unsigned LIN;
1 static unsigned FLAG;
1 static sx,sy,de,bc;
1 static struct stack STACK[STACKSIZE];/*size of stack*/
1 static int row;
1 static int lin;
1 static int de,hl;
1 static ft;
1 static de,hl;
1 static bc,de,hl;
1 static int I=0,i;
1 setpos64(FROW,LLIN);
1 setpos(12,12);
1 sek=fil_dat->s;
1 return ptr;/* test value */
1 return ptr;
1 return caps;
1 return _colour(17,i);
1 return _colour(16,i);
1 return TEST;
1 return I;
1 return 1;
1 return (count);
1 printf("\n \n");
1 printf("\025%c",on?0:1);
1 printf(" SS+a - return to TR-DOS\n");
1 printf(" EDIT - new disk\n");
1 printf(" ---------------------\n");
1 printf(" Text_Viewer ver 1.0\n");
1 pitch=pitch/10;
1 out_cat[count--].name[0]=0;
1 out->typ[0]=in->typ[0];
1 out->t=in->t;
1 out->s=in->s;
1 out->ns=in->ns;
1 out->name[i]=in->name[i];
1 out->len=in->len;
1 out->addr=in->addr;
1 name[11]=0;
1 name[10]=tip;
1 move(16384,Window,6912);
1 int stat;
1 int row,lin;
1 int num,maxnum;
1 int frow,lrow,flin,llin;
1 int flag;
1 int count,sec,j;
1 int count,mode;
1 int count,drow;
1 int T,S,NS,FF;
1 int ScrNum,MaxNum;
1 int I,mode;
1 int ExitBufFlag;
1 int DropFlag;
1 int DE,HL;
1 int *t,*s,*ns,dir,BF,EF;
1 inline(0xed,0x5b,&de,
1 inline(0xdd,0xe5,
1 inline(0xdd,0x46,4,
1 inline(0xcd,25236);
1 inline(0xc5,0xd5,0xe5,
1 inline(0xFD,0xCB,0x01,0xAE)
1 inline(0xFD,0xCB,0x01,0x6E,0x28,0x07,0x3E,0x01,0x32,&TEST,0x00,0x00,0x00,0x00);
1 inline(0xDD,0xE5,
1 inline(0x3A,RowAdr,0x32,&row);
1 inline(0x3A,LinAdr,0x32,&lin);
1 inline(0x3A,&LROW,0x32,LRowAdr);
1 inline(0x3A,&LLIN,0x32,LLinAdr);
1 inline(0x3A,&FROW,0x32,FRowAdr);
1 inline(0x3A,&FLIN,0x32,FLinAdr);
1 inline(0x3A,&FLAG,0x32,DROPAdr);
1 inline(0x3A,&COD,
1 if(testflag==_inv_key) goto lebel1;
1 if(testflag==_fire_key)
1 if(testflag==_exit_key) goto exit;
1 if(lin>maxl)
1 if(key==13) key=_fire_key;
1 if(key==11) key=_up_key;
1 if(key==10) key=_down_key;
1 if(key==09) key=_right_key;
1 if(key==08) key=_left_key;
1 if(key=='9') key=_up_key;
1 if(key=='8') key=_down_key;
1 if(key=='7') key=_right_key;
1 if(key=='6') key=_left_key;
1 if(key=='0') key=_fire_key;
1 if(key==' ') key=_fire_key;
1 if(i>maxnum) for(k=0;k<LENGHT;k++) printf("%c",' ');
1 if(fil_dat->ns>MAXBUF/256)
1 if(direction==_up_key)
1 if(direction==_down_key)
1 if(dir==1)
1 if(Key==_right_key) { ptrBuf=showRight(ptrBuf); continue;}
1 if(Key==_right_key)
1 if(Key==_left_key) { ptrBuf=showLeft(ptrBuf); continue;}
1 if(Key==_left_key)
1 if(Key==_inv_key)
1 if(Key==_down_key)
1 if(Key==_down_key)
1 if(Key=='b')
1 if(I>=STACKSIZE) I=0;
1 if(I<0) I=STACKSIZE-1;
1 if((fil->name[0] == 1)||(fil->typ[0] == 'B'))
1 if (dy<0)
1 if (dx<0)
1 if ( ! pitch)
1 ft=duration*pitch/10;
1 for(wait=0;wait<512;wait++);
1 for(sec=0;sec<8;sec++)
1 endwhile: ;
1 else put64(chr);
1 else for(k=0;k<LENGHT;k++)
1 direction=showBuf(status);
1 direction=_down_key;
1 default :break;
1 continue ;
1 connect(&out_cat[count++],&fil[i]);
1 color=*cast(char_ptr)adr;
1 color ^= 0x7F;
1 char testflag;
1 char chr,*ptrNext;
1 char Image[MAXBUF];
1 char FilName[12];
1 char Drivers[2304];
1 char *ptr;
1 char *Window,*EndTxt;
1 char * ptr;
1 case's':F_cod=0x0B;
1 case'd':F_cod=0x12;
1 case 1: {
1 case 0: {
1 case -2: {
1 case -1:{
1 case 2:{
1 border=7;
1 bc=(dy<<8)+dx;
1 _up_key=up;
1 _right_key=right;
1 _left_key=left;
1 _inv_key=function;
1 _fire_key=fire;
1 _exit_key=exit;
1 _exit(n);
1 _down_key=down;
1 _beep(ft,cast(unsigned)43750/pitch-30);
1 _FLUSHBUF.
1 _FLUSHBUF
1 _FILEBUF.
1 _FILEBUF
1 \^0<<N
1 \!\! ,
1 ZX-Spectrum.
1 ZX-Spectrum,
1 ZX-Spectrum,
1 ZX-Spectrum
1 Y[0][0], Y[0][1]
1 Y; *P->Y++
1 Y; *P++->Y
1 X3D, X3D[I], X3D[I][J]
1 X&(X-1)
1 X >> (P+1-N)
1 WRITELINES,
1 WRITE........................................
1 WRITE (6,...)
1 WORDLENGTH(),
1 WHILE.................................
1 WHILE, DO
1 WHILE ,
1 WHILE ,
1 VAL, SP, PUSH, POP
1 UPPER),
1 UPPER ),
1 UNSIGNED.
1 UNSIGNED,
1 UNSIGNED,
1 UNSIGNED NU;
1 UNSIGNED NBYTES;
1 UNSIGNED
1 UNSIGNE,
1 UNLINK (FILENAME)
1 UNIX............................
1 UNION HEADER \( /*FREE BLOCK HEADER*/
1 UNGETS(S) ,
1 UNGETCH ?
1 UNGETCH ,
1 UNGETCH
1 UNGETC...............................
1 TxtView1.
1 TxtView1
1 TYPEDEF. (
1 TYPEDEF.
1 TYPEDEF.
1 TYPEDEF UNION HEADER HEADER;
1 TYPEDEF INT ALIGN; /*FORCES ALIGNMENT ON PDP-11*/
1 TYPEDEF
1 TYPEDEF
1 TREEPTR (
1 TREEPRINT ;
1 TREEPRINT
1 TEMPNNN,
1 Spectrum.
1 Spectrum
1 SYSTEM(S)
1 SYS/TUPES.H.
1 SYS/STAT.H
1 SYS/STAT.
1 SYS/DIR.H,
1 SWITCH................................
1 SWITCH (
1 STRUCT STAT STBUF;
1 STRUCT DIRECT /*STRUCTURE OF DIRECTORY ENTRY*/
1 STRSAVE(S),
1 STRSAVE
1 STRCPY(S,T),
1 STRCMP, NIMCMP
1 STRCMP,
1 STOP (SimbolShift+A).
1 STDOUT,
1 STDIO.H).
1 STDIN, STDOUT
1 STDIN, STDOUT
1 STDERR.
1 STDERR.
1 STDERR,
1 STATIC HEADER BASE; /*EMPTY LIST TO GET STARTED*/
1 STATIC HEADER *MORECORE(NU) /*ASK SYSTEM FOR MEMORY*/
1 STATIC HEADER *ALLOCP=NULL; /*LAST ALLOCATED BLOCK*/
1 STAT(NAME,&STBUF);
1 SSCANF(NAME, "TEMP%D", &N);
1 SQUEEZE(S1,S2),
1 SQUARE(Z+1)).
1 SIZEOF,
1 SIZEOF
1 SHORT INT, INT
1 SCANF.................
1 RusTas. (
1 RIGHTROT(N,B),
1 RETURN,
1 RETURN(NULL);
1 RETURN(FP);
1 RETURN
1 REGISTER.
1 REGISTER,
1 REGISTER,
1 REGISTER FILE *IOP;
1 REGISTER CHAR *NAME, *MODE;
1 REGISTER
1 READLINES,
1 READLINES
1 PUTCHAR;
1 PUTCHAR......................................
1 PUTCHAR, GETC
1 PUTCHAR(C),
1 PUTCHAR(C)
1 PUSH, POP
1 PRINTF;
1 PRINTF;
1 PRINTF...............
1 PRINTF, GETCHAR
1 PRINTF("YES")
1 PRINTF ;
1 PRINTF ,
1 PRINTF ,
1 PRINTF ).
1 PRINTF ,
1 PRINTD,
1 PRINTD(123)
1 POWER(2,I)
1 POWER(2,5)
1 PL/1).
1 PDP-11,
1 PDP-11 UNIX,
1 OWER(C),
1 OUTFILE,
1 ORIGIN,
1 OFFSET,
1 OFFSET (
1 NUMCMP,
1 NC = NC + 1 ,
1 MORECORE
1 MONTH_NAME
1 MONTH_DAY,
1 MONTH_DAY
1 METRICP - "
1 MAXLINE_1
1 MAIN.O, GETLINE.O
1 MAIN.C,
1 MAIN, GETLINE
1 MAIN(LINE, SAVE
1 MAIN(ARGC,ARGV) /*FSIZE:PRINT FILE SIZES*/
1 MAIN(ARGC,ARGV) /*CP: COPY F1 TO F2*/
1 MAIN(ARGC,ARGV) /*CAT: CONCATENATE FILES*/
1 MAIN(ARGC, ARGV) /*CAT: CONCATENATE FILES*/
1 MAIN() /*COPY INPUT TO OUTPUT*/
1 LUSRLINELUDE).
1 LSEEK.............
1 LROW=lrow;
1 LOWER, UPPER
1 LOOKUP(S)
1 LONG; FD
1 LONG, SHORT
1 LONG INT.
1 LLIN=llin;
1 LINT
1 LINEPTR[I] -
1 LINEPTR
1 LINE, SAVE
1 Key=_right_key;
1 KEYTAB.
1 Interface 2
1 INTERDATA.
1 INTERDATA 8/32.
1 INTERDATA 8/32
1 INTERDATA
1 INT: SHORT (
1 INT, LONG
1 INT, CHAR
1 INT, CHAR
1 INT -
1 INSTALL(S,T)
1 INSTALL ,
1 INSTALL
1 IF...ELSE IF...ELSE.
1 IF, WHILE,
1 IF, ELSE,
1 IF(FP>=_IOB+_NFILE) /*NO FREE SLOTS*/
1 IF(FD==-1) /*COULDN'T ACCESS NAME*/
1 IF(*MODE=='W') /*ACCESS FILE*/
1 IF(*MODE !='R'&&*MODE !='W'&&*MODE !='A') \(
1 IF - ELSE
1 IF (P->S.SIZE>=NUNITS) \( /*BIG ENOUGH*/
1 IF (P+P->S.SIZE==G->S.PTR)\(/*JOIN TO UPPER NBR*/
1 IF (G>=G->S.PTR && (P>G \!\! P<G->S.PTR))
1 IF (G+G->S.SIZE==P) \( /*JOIN TO LOWER NBR*/
1 IBM SYSTEM/
1 IBM 360/370
1 I<(LIM-1),
1 I*J*...*K,
1 HONEYWELL 6000
1 HONEYWELL
1 HIREDATE
1 HASHTAB ;
1 GOTO..................................
1 GOTO CONTIN. (
1 GETWORD.
1 GETWORD,
1 GETWORD
1 GETWORD
1 GETLINE,
1 GETLINE /
1 GETLINE
1 GETLINE
1 GETINT,
1 GETFLOAT,
1 GETFLOAT
1 GETCHAR.
1 GETCHAR.
1 GETCHAR,
1 GETCHAR() /*UNBUFFERED SINGLE CHARACTER INPUT*/
1 GETCHAR() /*BUFFERED VERSION*/
1 GETCHAR .
1 GETCHAR ,
1 GETCHAR -
1 GETCH, UNGETCH
1 GETC.......
1 GETC, PUTC, STDIN
1 GETBITS
1 F_old=F_folow;
1 F_folow=F_begin;
1 F_end=F_begin+fil_dat->ns;
1 F_begin=16*trk+sek;
1 FSIZE(NAME) /*PRINT SIZE FOR NAME*/
1 FROW=frow;
1 FREE(AP) /*PUT BLOCKE AP IN FREE LIST*/
1 FPUTS(S,IOP) /*PUT STRING S ON FILS IOP*/
1 FPRINTF.
1 FP->_FLAG \!=(*MODE=='R') ? _READ : _WRITE;
1 FP->_FLAG &=(_READ \! _WRITE);
1 FP->_FD=FD;
1 FP->_CNT=0;
1 FP->_BASE=NULL;
1 FOR............................
1 FOR, WHILE
1 FOR (FP=_IOB;FP<_IOB+_NFILE;FP++)
1 FLOAT.
1 FLOAT ,
1 FLIN=flin;
1 FLAG=flag;
1 FILLBUF(FP) /*ALLOCATE AND FILL INPUT BUFFER*/
1 FILENAME (
1 FILECOPY(FP) /*COPY FILE FP TO STANDARD OUTPUT*/
1 FILE *FOPEN(NAME,MODE) /*OPEN FILE,RETURN FILE PTR*/
1 ExitBufFlag=1;
1 EXTERNAL
1 EXTERNAL
1 EXTERN,
1 EXTERN FILE _IOB[_NFILE];
1 EXTERN (
1 EXPAND(S1,S2),
1 EXIT...............
1 ERROR(S1,S2) /*PRINT ERROR MESSAGE AND DIE*/
1 ELSE IF(*MODE=='A') \(
1 ELSE - IF
1 EDIT (CapsShift+1).
1 EBCDIC - 240,
1 DOUBLE............................
1 DOUBLE. (
1 DOUBLE.
1 DOUBLE,
1 DOUBLE / FLOAT
1 DOUBLE .
1 DOUBLE ,
1 DO....................................
1 DO-WHILE
1 DO - WHILE................................
1 DO - WHILE
1 DISTANCE (
1 DIRECTORY(NAME) /*FSIZE FOR ALL FILES IN NAME*/
1 DIRECTORY
1 DEFAULT),
1 DEFAULT
1 DEC PDP-11,
1 DAY_OF_YEAR,
1 DAY_OF_YEAR .
1 DAY_OF_YEAR
1 CONTROL.
1 CONTROL,
1 CONTROL
1 CONTINUE
1 COD=chrcod;
1 CLEAR,
1 CHAR, 2
1 CHAR,
1 CHAR *FGETS(S,N,IOP) /*GET AT MOST N CHARS FROM IOP*/
1 CHAR *ARGV[];
1 CHAR *AP;
1 CHAR *ALLOC(NBYTES)/*GENERAL-PURPOSE STORAGE ALLOCATOR*/
1 CFREE(P)
1 CALLOC.
1 CALLOC,
1 CALLOC
1 BEGIN-END
1 BASE.S.SIZE=0;
1 BASE.S PTR=ALLOCP=G=&BASE;
1 A[5][5],
1 A[1], PA+I -
1 A[0], A[1], ..., A[9].
1 AUTO, STATIC
1 ATOF(...)
1 ASCII /
1 ARGV[2],
1 ARGV[0], ARGV[1]
1 ARG1, ARG2
1 ALLOCP,
1 ALLOCP = G;
1 ALLOCBUF.
1 ALLOCBUF
1 ALLOC.
1 ALLOC,
1 << >> == 1= <> <= >=
1 : does not follow a ? properly
1 9.1.
1 8.7.
1 8.6.
1 8.5.
1 8.4.
1 8.3.
1 8.2.
1 8.1.
1 7.9.4.
1 7.9.3.
1 7.9.2.
1 7.9.1.
1 7.9.
1 7.8.
1 7.7.
1 7.6.
1 7.5.
1 7.4.
1 7.3.
1 7.2.
1 7.1.
1 6.9.
1 6.8.
1 6.7.
1 6.6.
1 6.5.
1 6.4.
1 6.3.
1 6.2.
1 6.1.
1 56, X - 789.0,
1 5.9.
1 5.8.
1 5.7.
1 5.6.
1 5.5.
1 5.4.
1 5.3.
1 5.2.
1 5.12.
1 5.11.
1 5.10.
1 5.1.
1 5.
1 4/, ATOI, ITOA
1 4.9.
1 4.8.
1 4.7.
1 4.6.
1 4.5.1.
1 4.5.
1 4.4.
1 4.3.
1 4.2.
1 4.11.2. M
1 4.11.1.
1 4.11.
1 4.10.
1 4.1.
1 3/, INDEX
1 3.9.
1 3.8.
1 3.7.
1 3.6.
1 3.5.
1 3.4.
1 3.3. ELSE - IF......................................
1 3.2. IF - ELSE......................................
1 3.1.
1 3, 4, 5,
1 26.4.
1 26.3.
1 26.2.
1 26.1.
1 22.4.
1 22.3.
1 22.2.
1 22.1.
1 20.3.
1 20.2.
1 20.1.
1 2.9.
1 2.8.
1 2.7.
1 2.6.
1 2.5.
1 2.4. C
1 2.4.
1 2.3.3.
1 2.3.2.
1 2.3.1.
1 2.3.
1 2.2.
1 2.12.
1 2.11.
1 2.10.
1 2.1.
1 19.2.
1 19.1.
1 18.2.
1 18.1.
1 17.9.
1 17.8.
1 17.7.
1 17.6.
1 17.5.
1 17.4.
1 17.3.
1 17.2.
1 17.13.
1 17.12.
1 17.11.
1 17.10.
1 17.1.
1 16.8. TYPEDEF........................................
1 16.7.
1 16.6.
1 16.5.
1 16.4.
1 16.3.
1 16.2.
1 16.1.
1 15.9.
1 15.8.
1 15.7.
1 15.6.
1 15.5.
1 15.4.
1 15.3.
1 15.2.
1 15.15.
1 15.14.
1 15.13.
1 15.12.
1 15.11.
1 15.10.
1 15.1.
1 15 - 25)
1 14.6.
1 14.5.
1 14.4.
1 14.3.
1 14.2.
1 14.1.
1 10.6.
1 10.5.
1 10.4.4.
1 10.4.3.
1 10.4.2.
1 10.4.1.
1 10.4.
1 10.3.
1 10.2.
1 10.1.
1 1.9.
1 1.8.
1 1.7.
1 1.6.
1 1.5.5.
1 1.5.4.
1 1.5.3.
1 1.5.2.
1 1.5.1.
1 1.5.
1 1.4.
1 1.3.
1 1.2.
1 1.11.
1 1.10.
1 1.1. H
1 1 (++ARGV),
1 0xE6,0x01,/*and 01*/
1 0xDB,0xFE,/*in a,(#FE)*/
1 0xCD,Pr64Adr);
1 0xCD,15635/*CALL #3D13*/
1 0x3E,0xFE,/*ld a,#FE*/
1 0x3E,0x02,/*LD A,#02*/
1 0x3E,0x01,/*ld
1 0x3E,0x00,/*ld
1 0x32,&caps/*ld(caps),a*/
1 0x20,0x04,/* jr nz,+4*/
1 0x18,0x02,/*jr +2*/
1 0x0E,0x07,/*LD C,#07*/
1 /SIN, COS, SQRT/.
1 /* start TR-DOS */
1 /* mode= -1,+1 */
1 ........................................
1 ., ->,
1 - LETTER,
1 +,-,*,/
1 +, -, *, /
1 *cast(char_ptr)(adr+i)=mask;
1 *cast(char_ptr)(adr+i)=color;
1 *cast(__TRD_ptr)23823=0;
1 *S++); (*P->Y)++
1 *LINEPTR
1 *++(ARGV[0]).
1 **++ARGV.
1 *(PA+I) -
1 *(FIP()),
1 * ((E1) + (E2)).
1 (WHILE, FOR)
1 (UNLINK).
1 (SWITCH). (
1 (PIPELINE)
1 (P++)->X
1 (LONG) 0.
1 (FOR, WHILE, DO ).
1 (FLOAT)
1 (DOUBLE)
1 (CAST).
1 (CASE).
1 (A+B)+C.
1 (++NC),
1 (*, +, &, ^,
1 ("SHELL")
1 ( *,+,&,!,^ ),
1 &&, \!\!, !
1 #INCLUDE)
1 #INCLUDE <SYS/TYPES.H> /*TYPEDEFS*/
1 #INCLUDE <SYS/STAT.H> /*STRUCTURE RETURNED BY STAT*/
1 #INCLUDE <SYS/DIR.H> /*DIRECTORY ENTRY STRUCTURE*/
1 #INCLUDE <STDIO.H.>
1 #INCLUDE
1 #INCLUDE
1 #DEFINE _NFILE 20 /*FILES THAT CAN BE HANDLED*/
1 #DEFINE _BUFSIZE 512
1 #DEFINE S_IWRITE 0200 /* WRITE PERMISSION */
1 #DEFINE S_ISVTX 01000 /*SAVE SWAPPED TEXT AFTER USE*/
1 #DEFINE S_ISUID 04000 /* SET USER ID ON EXECUTION */
1 #DEFINE S_ISGID 02000 /* SET GROUP ID ON EXECUTION */
1 #DEFINE S_IREAD 0400 /* READ PERMISSION */
1 #DEFINE S_IFREG 0100000 /* REGULAR */
1 #DEFINE S_IFMT 0160000 /* TYPE OF FILE */
1 #DEFINE S_IFDIR 0040000 /* DIRECTORY */
1 #DEFINE S_IFCHR 0020000 /* CHARACTER SPECIAL */
1 #DEFINE S_IFBLK 0060000 /* BLOCK SPECIAL */
1 #DEFINE S_IEXEC 0100 /* EXECUTE PERMISSION */
1 #DEFINE PMODE 0644/*RW FOR OWNER,R FOR GROUP,OTHERS*/
1 #DEFINE NULL 0
1 #DEFINE NALLOC 128 /*#UNITS TO ALLOCATE AT ONCE*/
1 #DEFINE DIRSIZ 14 /*MAX LENGTH OF FILE NAME*/
1 #DEFINE CMASK 0377 /*FOR MAKING CHAR'S>0*/
1 #DEFINE CMASK 0377 /*FOR MAKING CHAR'S > 0*/
1 #DEFINE BUFSIZE 512 /*BEST SIZE FOR PDP-11 UNIX*/
1 #DEFINE BUFSIZE 256
1 #DEFINE ,
1 #DEFINE PMODE 0644 /*R/W FOR OWNER;R FOR OTHERS*/
1 #DEFINE _WRITE 02 /* FILE OPEN FOR WRITING */
1 #DEFINE _UNBUF 04 /* FILE IS UNBUFFERED */
1 #DEFINE _READ 01 /* FILE OPEN FOR READING */
1 #DEFINE _ERR 040 /* ERROR HAS OCCURRED ON THIS FILE */
1 #DEFINE _EOF 020 /* EOF HAS OCCURRED ON THIS FILE */
1 #DEFINE _BIGBUF 010 /* BIG BUFFER ALLOCATED */
1 #DEFINE STDOUT (&_IOB[1])
1 #DEFINE STDIN (&_IOB[0])
1 #DEFINE STDERR (&_IOB[2])
1 #DEFINE PUTCHAR(X) PUTC(X,STDOUT)
1 #DEFINE PUTC(X,P) (--(P)->_CNT >= 0 \
1 #DEFINE NULL 0
1 #DEFINE GETCHAR() GETC(STDIN)
1 #DEFINE GETC(P) (--(P)->_CNT >= 0 \
1 #DEFINE EOF (-1)
1 #DEFINE
1 "boot".
1 "\N" -
1 "UNIX"/.
1 "UNIX" ,
1 "TxtView1")
1 "Q","A","O","P","M".
1 "HELLO, WORLD"
1 "HELLO, WORLD\N".
1 "COMMON"
1 "C".........................
1 "C", DO-WHILE,
1 "C" "STATIC"
1 "C" -
1 }/*switch*/
1 }/*else*/
1 }/* end switch */
1 }/* end if */
1 { rsec(1,0,sec,fil);
1 { arr(lin,row,LENGHT);
1 { LIN=retlin64();
1 will always be compiled into your
1 while(fil[i].name[0] != 0)
1 while(((chr=getc(input)) != EOF))
1 while (putchar(*s++));
1 while (isspace(*s)) ++s;
1 while (isdigit(c = *s++)) value = 10 * value + c - '0';
1 while (c = *s++) putc(c, fp);
1 while (TRUE)
1 while (--n > 0 && (c = getc(fp)) != EOF)
1 while (*s == *t)
1 while (*dest++ = *source++) ;
1 w VURNALE PREDSTAWLENY WELIKO-
1 value = 0;
1 unsigned u, i;
1 unsigned n;
1 unsigned n1,n0;
1 unsigned n, d;
1 unsigned addr,len;
1 unsigned LCOUNT;
1 unsigned _size;
1 unsigned n, size;
1 u NAS WSEGDA MOVNO PRIOBRESTI
1 two arithmetic functions vhich need
1 to be declared BEFORE they are used,
1 struct fileinf fil[MAXFILES];
1 struct _header * _ptr;
1 static unsigned gap, byte_gap, i;
1 static unsigned nbytes;
1 static int i;
1 static int c, value, sign;
1 static int argc, *argv, min;
1 static int argc, *argv, max;
1 static char x[4], product[4];
1 static char p,
1 static char k[4];
1 static char *p;
1 static bc,de,hl;
1 static HEADER *p, *q;
1 static HEADER *p, *q;
1 sign = 1;
1 setpos(FIRSTLIN,FIRSTROW0);
1 setlin64(LIN);
1 rsec(MAXFILES/16,0,0,fil);
1 row=FIRSTROW;
1 routines if you want to compile a large
1 return result;
1 return p;
1 return max;
1 return Key;
1 return *s - *t;
1 return ((c == EOF && cs == s) ? NULL : s);
1 return sign * value;
1 return n<0 ? -n : n ;
1 return n ?
1 return isprint(c) & ! isalnum(c);
1 return isalpha(c) | isdigit(c) ;
1 return c >= ' ' & c < '\177' ;
1 return c < 0x80 ;
1 return c < ' ' | c == '\177' ;
1 return * cast(__char_ptr) address;
1 return (_rnum[1] << 8) + _rnum[0];
1 result = dest;
1 program. You may wish to make a version
1 printf("\nfile_function error\n");
1 printf("(%d)",fil_dat->len);
1 prigla{aem k sotrudni~estwu:
1 pRODOLVAETSQ PODPISKA NA GODO-
1 p=heap_ptr;
1 p = q->_ptr;
1 p = cast(HEADER_PTR) (block - 1);
1 of this file without these two
1 number of arguments). This means that
1 nbytes = (n * size + (sizeof(HEADER) - 1)) / sizeof(HEADER) + 1;
1 nE ZABUDXTE WLOVITX KONWERT S
1 move(c, a, 4);
1 min and max are in "stdio.h"
1 min = 32767;
1 max = -32767;
1 mY WSEGDA RADY NOWYM ZNAKOMS-
1 mY PRODOLVAEM \KSPERIMENT PO
1 long_set(product, 0,0);
1 long_multiply(_rnum, _rnum, k);
1 long_init(k, 0x41c6,0x4e6d);
1 long_init(k, 0,0x3039);
1 long_init(_rnum, 0,n);
1 long_copy(c, product);
1 long_add(_rnum, _rnum, k);
1 int lin,row,Drow;
1 int i, j;
1 int count;
1 int (*cmp_func)();
1 int num_items, size;
1 int n;
1 inline(0xe1,0xe1,0xe1,
1 inline(0xCD,0xD6B);
1 inline(0xCD,0x0D6B);
1 if(ptrNext >= EndTxt) return 0;
1 if(border>7) border=0;
1 if(addres>0)
1 if you include "stdio.h" these functions
1 if (q + q->_size == p)
1 if (p + p->_size == q->_ptr)
1 if (heap_ptr+n > heap+HEAPSIZE) return ERROR;
1 if (d < 3) a[d+1] = n >> 8;
1 if ((q = _allocp) == NULL) /* no free list */
1 if (*s == '-') { ++s; sign = -1; }
1 hl=BUFF;
1 heap_ptr += n;
1 for(ft=0;ft<duration;++ft)
1 for (q = _allocp; !(p > q && p < q->_ptr); q = q->_ptr)
1 for (i=0; i<4; ++i) a[i] = 0;
1 for (gap = num_items>>1; gap>0; gap >>= 1)
1 fIRMA "inforkom" RABOTAET W
1 else if (*s == '+') ++s;
1 else /*if dir==-1 */
1 else q->_ptr = p;
1 else p->_ptr = q->_ptr;
1 de=TREC*256+SECT;
1 dLQ TEH, KTO MOVET POSETITX
1 dLQ POLU^ENIQ NA[EGO blan-
1 dLQ L@BITELEJ ZANIMATXSQ IZGO-
1 count=0;
1 continue;
1 char ns,s,t;
1 char name[8],typ[1];
1 char *s, *t;
1 char *list;
1 char *dest, *source;
1 char *block;
1 char *a, *c;
1 border++;
1 because they are variadic (take any
1 because they are variadic
1 bc=NSEC*256+5;
1 amount of code and don't need them.
1 a[d] = n & 0xff;
1 a[3] = n1 >> 8;
1 a[2] = n1 & 0xff;
1 a[1] = n0 >> 8;
1 a[0] = n0 & 0xff;
1 _dos(bc,de,hl);
1 _allocp = q;
1 _IFDIR
1 ZX-Spectrum
1 ZX-Spectrum
1 Y[2].
1 Y[0][2].
1 X3D[I][J][K]
1 WRITE.
1 WHILE(...) \( DO \( FOR(...) \(
1 VAX-11
1 USIGNED
1 UNSIGNED,
1 UNSIGNED);
1 UNSIGNED
1 UNGETCH,
1 TREEPTR
1 TOUPPER(C)
1 TOLOWER(C)
1 TOLOWER
1 T.4. "dizajn wa{ih programm".
1 T.3. "dinami~eskaq grafika",
1 T.2. "prikladnaq grafika",
1 T.1. "|lementarnaq grafika",
1 ScrView2
1 S_IFMT
1 STRUCT STAT /*STRUCTURE RETURNED BY STAT*/
1 STRLEN
1 STRING
1 STDOUT
1 STDOUT
1 STDIO.H,
1 STDIO.H .
1 STDIO.H
1 STDERR -
1 SIZE,
1 SHORT, INT
1 SHORT 16 36 16 16
1 SEEK,
1 SCANF
1 RINDEX(S,T),
1 RETURN
1 REGISTER
1 READ (5,...)
1 RANGE -38/+38 -38/+38 -76/+76 -76/+76
1 PRINTF,
1 PRINTF).
1 PRINTF(...),
1 PRINTD
1 PL/1.
1 PDP-11,
1 PDP-11 UNIX
1 NULL. (
1 NDIGIT
1 MONTH_NAME, -
1 MONTH_DAY,
1 MAIN, GETLINE
1 MAIN -
1 LSEEK,
1 LOOKUP.
1 LOOKUP
1 LONG 32 36 32 32
1 LINEPTR)
1 LINEPTR
1 LETTER
1 KEYCOUNT:
1 ITOH,
1 ISUPPER(C)
1 ISSPACL(C)
1 ISLOWER(C)
1 ISDIGIT(C)
1 ISALPHA(C)
1 INVERT(X,P,N),
1 INT ,
1 INT 16 36 32 32
1 IF-ELSE.
1 IF - ELSE
1 IBM 360/370,HONEYWELL 6000
1 GOTO,
1 GETWORD;
1 GETWORD,
1 GETOP,
1 GETLINE;
1 GETLINE
1 GETLINE
1 GETCHAR, PUTCHAR
1 GETCHAR,
1 GETCHAR()
1 GETCHAR
1 GETBITS(X,P,N),
1 FREE,
1 FPRINTF,
1 FOR -
1 FOR ,
1 FLOAT,
1 FLOAT 32 36 32 32
1 FLAGS.IS_STATIE,
1 FLAGS,
1 FILENAME. (
1 EXTERN, STATIC
1 EXTERN (
1 EXPAND(S, T),
1 ENTAB,
1 ECHO,
1 E1->MOS
1 E1 = E1
1 DOUBLE;
1 DOUBLE ;
1 DOUBLE 64 72 64 64
1 DO-WHILE
1 DISTANCE
1 DETAB (
1 DEFAULT.
1 DEFAULT,
1 DAY_OF_YEAR,
1 DAY_OF_YEAR
1 COPY.
1 CONTINUE
1 CHAR).
1 CHAR 8 BITS 9 BITS 8 BITS 8 BITS
1 CASE,
1 BUFSIZE,
1 BREAK
1 BITCOUNT,
1 BINARY:
1 BINARY.
1 ARGV[0].
1 ALLOCP.
1 ALLOCBUF,
1 ALLOC,
1 8. "igry na bejsike swoimi ru-
1 7. "qzyki programmirowaniq" -
1 6. "periferiq swoimi rukami" -
1 5.0/9.0
1 5. "30 ~asow bejsika dlq na~i-
1 4. sERIAL IZ ^ETYREH TOMOW,
1 3."programmirowanie w ma{innyh
1 3. rAZRABOT^IKOW ORIGINALXNYH
1 2. aWTOROW KNIG, STATEJ I DRU-
1 1. oPTOWYH POKUPATELEJ, DILE-
1 0xED,0x5B,&Len,/*LD DE,(adr)*/
1 0xCD,15635/*CALL #3D13*/
1 0x3A,&Flag,/*LD A,(adr)*/
1 0x3A,&F_cod,0x4F,/*LD C,(adr)*/
1 0x2A,&Addr,/*LD HL,(adr)*/
1 0377,
1 0, 1
1 /GETCHAR ,
1 /*ret sintacsis error*/
1 /* Fman.l22 */
1 ...".
1 ...",
1 ---------------------------------------------------------
1 ++NL.
1 *cs = '\0';
1 *cast(__TRD_ptr)23814=Maska_num;
1 *cast(__TRD_ptr)23801=1;
1 *cast(__TRD_ptr)23801=0;
1 *cast(__TRD_ptr)23781=0x43; /* 'c'- code */
1 *cast(__TRD_ptr)(23773+i)=f_name[i];
1 *, /
1 *(A+I);
1 * cast(__char_ptr) address = value;
1 (PIPELINE)
1 (IF),
1 (A/B)*B+A%B
1 (*PFI)()
1 '\0',
1 'UNGETCH'?
1 %6.1F,
1 #DEFINE PUTCHAR(C) PUTC(C,STDOUT)
1 #DEFINE GETCHAR() GETC(STDIN)
1 "WORLD".
1 "UNIX" PDP-11 ,
1 "THOMPSON",
1 "HELLO, WORLD" (12
1 "ECHO", "HELLO,"
1 "C" -
1 "...T",
1 "-1",
1 }/*end for*/
1 }/*down*/
1 }/* up */
1 {printf("\n abort program...");while(!keypressed());rawin(); goto exit;}
1 {num_s=MAXBUF/256;
1 { i=LLIN-FLIN/*+1*/;
1 while(NS--)
1 sy= -1;
1 sx= -1;
1 stdio.l stdio.h
1 setpos(lin,row);
1 setpos(HEADLIN,row);
1 return 8;
1 return 0;
1 ptrBuf=showUp(ptrBuf);
1 ptrBuf=showDown(ptrBuf);
1 printf("***_View");
1 lin-=DLIN;
1 if(lin>LASTLIN)
1 if(lin<(FIRSTLIN))
1 if(lenght>0)
1 if(++SCROLL >=(LLIN-FLIN-1)/2)
1 if(*ns<=0)
1 if((fil[i].name[7]=='S')||(fil[i].ns==27)||(fil[i].ns==24))
1 if(((F_folow+num_s)==F_end)&&(fil_dat->len%256))
1 for(pitch=4630;++pitch;);
1 else lenght=256*num_s;
1 else Flag=1;
1 dy= -dy;
1 dx= -dx;
1 arrcol(lin,row,LENGHT,WINCLR);
1 arrcol(HEADLIN,row,LENGHT,HEADCLR);
1 arr(lin,row,LENGHT);
1 _FILEBUF
1 [-]MMM.NNNNN,
1 [-]M.NNNNNNE[+-]XX,
1 Y[1]
1 X&\^077
1 WHILE, DO, FOR
1 WHILE(FP->_BASE==NULL) /*FIND BUFFER SPACE*/
1 WHILE(--N>0&&(C=GETC(IOP)) !=EOF)
1 WHILE(--ARGC>0) \(
1 WHILE((N=READ(0,BUF,BUFSIZE))>0)
1 WHILE (C = *S++)
1 WHILE ((N=READ(F1,BUF,BUFSIZE))>0)
1 WHILE ((C=GETC(FP)) !=EOF)
1 WHILE
1 WHILE
1 UTYPE,
1 UNIX.
1 UNIX
1 UNGETCH,
1 TYPE[ ].
1 TYPEDEF STRUCT _IOBUF \(
1 TYPEDEF
1 TYPE,
1 Sound Functions */
1 S[I]=C;
1 SWAP(X, Y),
1 STRUCT STAT STBUF;
1 STRUCT TNODE,
1 STRCPY
1 STATIC INT N = 0;
1 STATIC CHAR SMALLBUF(NFILE);/*FOR UNBUFFERED 1/0*/
1 STATIC CHAR BUF[BUFSIZE];
1 STATIC CHAR *BUFP = BUF;
1 STATIC ,
1 SQRT, SIN
1 SIZEOF)
1 SHELL
1 RETURN(*FP->_PTR++ & 0377); /*MAKE CHAR POSITIVE*/
1 RETURN((READ(0,&C,1)>0 7 & CMASK : EOF);
1 RETURN((C==EOF && CS==S) 7 NULL : S);
1 RETURN((--N>=0) ? *BUFP++ & CMASK : EOF);
1 REGISTER FILE *IOP;
1 REGISTER FILE *FP;
1 REGISTER CHAR *S;
1 REGISTER CHAR *CS;
1 PUTC(C,IOP);
1 PUTC(C, STDOUT);
1 PUTC
1 PROG
1 PRINTF(S1,S2);
1 PRINTF("\N");
1 PRINTF("%8LD %S\N",STBUF.ST_SIZE,NAME);
1 POWER(M,N),
1 PDP-11)
1 PDP -11,
1 OR (I = 0; I < N; I++)
1 ON=,
1 OFFSET
1 NUL.
1 MONTH_NAME(N),
1 Len =lenght;
1 LastKey=_up_key;
1 LastKey=_down_key;
1 LONG,
1 Kempston
1 KEYTAB,
1 ISUPPER
1 ISDIGIT,
1 ISALPHA
1 INT.
1 INT.
1 INT, TAK
1 INT F1, F2, N;
1 INO_T&_INO; /*INODE NUMBER*/
1 IF(YEAR % 4 == 0 && YEAR % 100 != 0 \!\! YEAR % 400 == 0)
1 IF(STAT(NAME,&STBUF)== -1) \(
1 IF(ARGC==1) /*NO ARGS; COPY STANDARD INPUT*/
1 IF(ARGC==1) /*NO ARGS; COPY STANDARD INPUT*/
1 IF(--FP->_CNT<0) \(
1 IF((STBUF.ST_MODE & S_IFMT)==S_IFDIR)
1 IF((FP->_FLAG&_READ)==0\!\!(FP->_FLAG&(EOF\!_ERR))\!=0)
1 IF (N==0) \( /*BUFFER IS EMPTY*/
1 IF (ARGC ! = 3)
1 IF ((F2=CREAT(ARGV[2],PMODE))== -1)
1 IF ((F1=OPEN(ARGV[1],0))== -1)
1 HTOI(S),
1 GETWORD
1 GETLINE
1 GETLINE
1 Flag=3;
1 F_folow=16*trk+sek;
1 FSIZE(BUF);
1 FPUTS
1 FP->_PTR=FP->_BASE;
1 FP->_FLAG & _UNBUF ? 1 : _BUFSIZE);
1 FP->_CNT=READ(FP->_FD, FP->_PTR,
1 FOR(I=0;I<LIM-1 && (C=GETCHAR()) != '\N' && C != EOF; ++I)
1 FOR(I=0; S[I]==' ' \!\! S[I]=='\N' \!\! S[I]=='\T'; I++)
1 FILE *FP;
1 FF=(*t)*16+(*s);
1 FCLOSE
1 F(6,1)
1 EXTERN,
1 EXTERN
1 EXIT(1);
1 EXIT(0);
1 DOUBLE;
1 DOUBLE
1 DIR.H,
1 CS = S;
1 CHAR,
1 CHAR C;
1 CHAR *S1, S2;
1 CHAR *CALLOC();
1 CHAR &_NAME[DIRSIZ]; /*FILE NAME*/
1 CHAR
1 BS \B
1 Addr=addres;
1 ATRCPY(BUF,".");
1 ATOF(S),
1 ANY(S1,S2),
1 < :
1 5).
1 10,
1 0x2b,0xc3,0x55,0);
1 0X1F
1 .......................................
1 - STRCMP(S, T),
1 - PRINTF .
1 , "C"
1 +32767.
1 *ns=NS;
1 *ns=((EF-FF)>MAXBUF/256)? MAXBUF/256:(EF-FF);
1 *cast(char_ptr)23823=0;
1 *P->Y
1 *CS = '\0';
1 ** !
1 *(byte_ptr+23609)=pip;
1 *(byte_ptr+23609)=1;
1 *(byte_ptr+23608)=rasp;
1 *(byte_ptr+23608)=1;
1 *(byte_ptr+23562)=repper;
1 *(byte_ptr+23562)=1;
1 *(byte_ptr+23561)=repdel;
1 *(byte_ptr+23561)=rate;
1 (Hisoft)
1 (ANSI).
1 (*E1).MOS.
1 '\N' -
1 %4.0F
1 #DEFINE;
1 #DEFINE
1 "UNIX".
1 "UNIX",
1 "TxtView1";
1 "C".
1 "1",
1 ".C" ,
1 "...".
1 ! SHORT 16 36 16 16 !
1 ! LONG 32 36 32 32 !
1 ! INT 16 36 32 32 !
1 ! FLOAT 32 36 32 32 !
1 ! DOUBLE 64 72 64 64 !
1 ! CHAR 8-BITS 9-BITS 8-BITS 8-BITS !
1 ! DEC PDP-11 HONEYWELL IBM 370 INTERDATA !
1 ! ASCII ASCII EBCDIC ASCII !
1 ! 6000 8/32 !
1 } /* end while TRUE */
1 } WHILE ((N /=10) > 0); /* DELETE IT */
1 {num_s=fil_dat->ns;
1 {if(fil[j].name[0]==0) goto end_cat;
1 {I=find_I(I,mode);
1 { SCROLL=0;
1 x = I;
1 wup64(1+LLIN-FLIN);
1 while(j < 16)
1 while(!keypressed());
1 wdwn64(1+LLIN-FLIN);
1 tester(chr);
1 status=1;
1 status=-1;
1 showFil(&scr[ScrNum]);
1 setrow64(FROW);
1 rsec(num_s,trk,sek,Window);
1 return;
1 rawin();
1 if(chr!=CR){put64(chr); len++;}
1 if(LIN < LLIN) LIN++;
1 if(F_folow<=F_begin)
1 if(DropFlag)i=1+i/2;
1 if(DropFlag) i=1+i/2;
1 if((fil[i].name[0] != 1)&&(fil[i].typ[0] =='C'))
1 if((F_folow+num_s)>=F_end)
1 if (q >= q->_ptr && (p > q || p < q->_ptr)) break;
1 if ((*cs++ = c) == '\n') break;
1 heap_ptr=heap;
1 heap[HEAPSIZE],
1 for (j = i; j >= 0; --j)
1 fil_er=*cast(char_ptr)23823;
1 else setrow64(FROW);
1 arr(lin,row,LENGHT);
1 \) ELSE
1 \!\! STRCMP(DIRBUF.D_NAME,"..")==0
1 Y=2,
1 X = X * Y + 1
1 X = X * (Y + 1)
1 X = F() + G();
1 X *= Y + 1
1 X & \^077
1 WHILE(READ(FD,(CHAR *)&DIRBUF,SIZEOF(DIRBUF))>0) \(
1 WHILE ((N = GETLINE(LINE,MAXLINE)) > 0) {
1 WHILE ((C = GETCHAR()) != EOF)
1 WHILE ((C = GETCHAR())
1 WHILE ( (LEN = GETLINE()) > 0 )
1 UPPER =300; /* UPPER LIMIT */
1 UPPER =300;
1 UP=(HEADER *)CP;
1 UP->S.SIZE=RNU;
1 UNSIGNED SIZE; /*SIZE OF THIS FREE BLOCK*/
1 UNSIGNED INT Z;
1 UNION HEADER *PTR; /*NEXT FREE BLOCK*/
1 TIME_T ST_MTIME; /* TIME LAST MODIFIED */
1 TIME_T ST_CTIME; /* TIME ORIGINALLY CREATED */
1 TIME_T ST_ATIME; /* TIME LAST ACCESSED */
1 TATIC STRUCT NLIST *HASHTAB[HASHSIZE] /* POINTER TABLE */
1 TABLE */
1 S[I] = '\0';
1 S[I] - '0'
1 STRUCT \(
1 STRUCT DIRECT DIRBUF;
1 STRLEN(S) /* RETURN LENGTH OF S */
1 STEP = 20;
1 STEP = 20; /* STEP SIZE */
1 SQUEEZE(S,C) /* DELETE ALL C FROM S */
1 SQRT((DOUBLE) N)
1 SORT(V, N, COMP, EXCH) /* SORT STRINGS V[0] ... V[N-1] */
1 SIZEOF.
1 SIGN = 1;
1 SHORT ST_UID; /* OWNER'S USER ID */
1 SHORT ST_NLINK; / *NUMBER OF LINKS TO FILE */
1 SHORT ST_MODE /* MODE BITS */
1 SHORT ST_GID; /* OWNER'S GROUP ID */
1 SHORT INT X;
1 SHORT
1 SHELL(V, N) /* SORT V[0]...V[N-1]
1 SECONDS = 60 * 60 * HOURS;
1 SCANF("%D", &N);
1 RNU=NALLOC*((NU+NALLOC-1)/NALLOC);
1 REVERSE(S);
1 REVERSE(S),
1 RETURN(SIGN * N);
1 RETURN(DAY);
1 RETURN(ALLOCP);
1 REGISTER INT RNU;
1 REGISTER INT NUNITS;
1 REGISTER HEADER *UP;
1 REGISTER CHAR *CP;
1 REGISTER
1 PUTCHAR(C);
1 PRINTF("%D %D\N",N,POWER(2,N));
1 PRINTF("%D %D\N",++N,POWER(2,N));
1 PRINTF("%D %D %D\N",I,POWER(2,I),POWER(-3,I));
1 PRINTF("%4D %6.1F\N", FAHR, (5.0/9.0)*(FAHR-32.0));
1 PRINTD
1 POWER,
1 POWER
1 PDP-11,
1 PDP-11
1 PDP-11
1 P=(HEADER*)AP-1; /*POINT TO HEADER*/
1 P->S.SIZE=NUNITS;
1 P->S.SIZE-=NUNITS;
1 P+=P->S.SIZE;
1 ORIGIN
1 OFF_T ST_SIZE; /* FILE SIZE IN CHARACTERS */
1 NUNITS=1+(NBYTES+SIZEOF(HEADER)-1)/SIZEOF(HEADER);
1 NBP=NAME+STRLEN(NAME);
1 MONTH_DAY(YEAR, YEARDAY, PMONTH, PDAY) /*SET MONTH,DAY */
1 MODE,NAME);
1 MAIN() /* FAHRENHEIT-CELSIUS TABLE */
1 MAIN() /* COUNT DIGITS,WHITE SPACE, OTHERS */
1 MAIN() /*FIND LONGEST LINE; SPECIALIZED VERSION*/
1 MAIN() /* COUNT LINES, WORDS, CHARS IN INPUT */
1 MAIN() /* COUNT LINES IN INPUT */
1 MAIN() /* COUNT DIGITS, WHITE SPACE, OTHERS */
1 MAIN() /* COPY INPUT TO OUTPUT; 2ND VERSION */
1 MAIN() /* COPY INPUT TO OUTPUT; 1ST VERSION */
1 MAIN()
1 MAIN () /* FAHRENHEIT-CELSIUS TABLE */
1 MAIN ()
1 LOWER(C) /* CONVERT C TO LOWER CASE; ASCII ONLY */
1 LOWER = 0; /* LOWER LIMIT OF TEMPERATURE
1 LOWER = 0;
1 LOOKUP
1 LONG INT Y;
1 LEAP = PD->YEAR % 4 == 0 && PD->YEAR % 100 != 0
1 Jan Bielecki,
1 ITOB(N,S),
1 ITOA(N,S) /*CONVERT N TO CHARACTERS IN S */
1 ISDIGIT = C >= '0' && C <= '9';
1 INT YEAR, YEARDAY, *PMONTH, *PDAY; /* FROM DAY OF YEAR */
1 INT X,N;
1 INT V[], N;
1 INT UPPER;
1 INT STEP;
1 INT N;
1 INT LOWER;
1 INT I;
1 INT I, SIGN;
1 INT I, N, SIGN;
1 INT I, FD;
1 INT I, DAY, LEAP;
1 INT I = 0;
1 INT FAHR;
1 INT MAX;/*LENGTH OF LONGEST LINE SEEN SO FAR*/
1 INO_T ST_INO; /* INODE NUMBER */
1 IF(S[I] == '+' \!\! S[I] == '-') /* SIGN */
1 IF(STRCMP (DIRBUF.D_NAME,".")==0
1 IF(P==ALLOCP) /*WRAPPED AROUND FREE LIST*/
1 IF(NBP+DIRSIZ+2>=NAME+BUFSIZE) /*NAME TOO LONG*/
1 IF(DIRBUF.D_INO==0) /*SLOT NOT IN USE*/
1 IF(C == '\N')
1 IF(ARGC==1) \( /*DEFAULT:CURRENT DIRECTORY*/
1 IF((FD=OPEN(NAME,0))== -1)
1 IF( INWORD == 0 )
1 IF( ! INWORD )
1 IF (SIGN < 0)
1 IF (N > 0) {
1 IF (N > 0)
1 IF (FOUND)
1 IF ((X & MASK) == 0) ...
1 IF ((SIGN = N) < 0) /* RECORD SIGN */
1 IF ((INT)CP==-1) /*NO SPACE AT ALL*/
1 IF ((G=ALLOCP)==NULL) \( /*NO FREE LIST YET*/
1 IF ( S[I] != C ) {
1 IF ( N > 0 )
1 IF ( MAX > 0 ) /* THERE WAS A LINE */
1 IF ( C == EOF )
1 IF ( C == '\N' ) {
1 I<LIM-1 && (C = GETCHAR()) != '\N' && C != EOF
1 I = x;
1 I = I + 2
1 I = C;
1 I = 0;
1 I += 2
1 HEADER *MORECORE();
1 GETLINE() /* SPECIALIZED VERSION */
1 GETINT
1 GETC
1 G->S.PTR=P->S.PTR;
1 Flag=3;
1 F_folow=16*trk+sek;
1 FSIZE(NAME);
1 FREE((CHAR *)(UP+1));
1 FOUND:
1 FOUND = 0;
1 FOR(I=0;S[I]==' ' \!\!
1 FOR( N = 0; S[I] >= '0' && S[I] <= '9'; I++)
1 FOR F = 0, 20, ..., 300 */
1 FOR (P=G>S.PTR; ; G=P, P=P->S.PTR) \(
1 FOR (I=0,NEP=NBP;I<DIRSIZ;I++)
1 FOR (I =1; I < PD->MONTH; I++)
1 FOR (I = 0; I < N; I++) {
1 FOR (I = 0; I < N && !FOUND; I++)
1 FOR (G=ALLOCP; !(P>G && P>G->S.PTR);G=G->S.PTR)
1 FOR (FAHR =LOWER; FAHR <= UPPER; FAHR =FAHR + STEP)
1 FOPEN,
1 FOPEN
1 FLOAT FAHR, CELSIUS;
1 FLOAT EPS = 1.0E-5;
1 FD=CREAT(NAME,PMODE);
1 FAHR =LOWER;
1 FAHR =FAHR + 20
1 FAHR = LOWER;
1 FAHR = 0
1 FAHR <= 300
1 EndTxt=Window+lenght;
1 ERROR:
1 ELSE IF (
1 ELSE /* WRONG */
1 ELSE
1 DOUBLE. -
1 DOUBLE.
1 DOUBLE
1 DO { /* GENERATE DIGITS IN REVERSE ORDER */
1 DISTRIBUTED BY INFORCOM
1 DEV_T ST_RDEV; /* FOR SPECIAL FILES */
1 DEV_T ST_DEV; /* DEVICE OF INODE */
1 DAY_OF_YEAR(PD) /* SET DAY OF YEAR FROM MONTH, DAY */
1 DAY = PD->DAY;
1 CP=SBRK(RNU*SIZEOF(HEADER));
1 CONTINUE; /*SKIP SELF AND PARENT*/
1 CONTINUE;
1 CONTINUE
1 CHAR LINE[MAXLINE+1];
1 CHAR LINE[1000];
1 CHAR C, LINE[1000];
1 CHAR BUF[BUFSIZE];
1 CHAR BACKSLASH = '\\';
1 CHAR *SBRK();
1 CHAR *NBP, *NEP;
1 CHAR SAVE[MAXLINE];/* LONGEST LINE SAVED HERE*/
1 CHAR LINE[MAXLINE]; /* INPUT LINE */
1 CALLOC(N,SIZE)
1 C = X
1 C = N & 0177
1 C = I;
1 C = GETCHAR();
1 C = GETCHAR() != EOF
1 C = GETCHAR()
1 C = (GETCHAR() != EOF)
1 BREAK; /*FOUND FREE SLOT*/
1 A[I] = I++;
1 AND
1 ALLOC,
1 ALLOC,
1 ALLOC
1 ALIGN X; /*FORCE ALIGNMENT OF BLOCKS*/
1 ? *(P)->_PTR++ = (X) : _FLUSHBUF((X),P))
1 ? *(P)->_PTR++ & 0377 : _FILEBUF(P))
1 7000
1 27.11.94 C
1 123.456
1 11
1 /* PRINT FAHRENHEIT-CELSIUS TABLE
1 -D ("
1 --------------------------
1 -------------------------
1 -------------------
1 + - * / % << >> & \^ \!
1 *NEP++=DIRBUF.D_NAME[I];
1 *NEP++='\0';
1 *NBP++='/'; /*ADD SLASH TO DIRECTORY NAME*/
1 (C = GETCHAR()) != '\N'
1 ( n<0 ? -1 : 1 ) : 0 ;
1 '\DDD'
1 &&(Key!=_exit_key))
1 #DEFINE UPPER 300 /* UPPER LIMIT */
1 #DEFINE STEP 20 /* STEP SIZE */
1 #DEFINE MAXLINE 1000 /* MAX. INPUT LINE SIZE*/
1 #DEFINE MAXLINE 1000
1 #DEFINE LOWER 0/* LOWER LIMIT OF TABLE */
1 #DEFINE EOF 0
1 #DEFINE EOF -1
1 #DEFINE MAXLINE 1000 /* MAXIMUM INPUT LINE SIZE */
1 #DEFINE FORMFEED '\014' /* FORM FEED */
1 #DEFINE YES 1
1 #DEFINE NO 0
1 "I AM A STRING" /*
1 "HELLO\N"
1 "C"
1 "" /* NULL STRING */ /*
1 }/*end while*/
1 {/* print only 'C'*/
1 {*ns=0;
1 while(i>0)
1 while(NS--)
1 while((i--)&&(ptrBuf !=0))ptrBuf=showUp(ptrBuf);
1 return lin; }
1 printf("%c",prichar(in_cat[i].name[k]));
1 lenght=fil_dat->len;
1 if(filtrator(&fil[j],&FILTER) != 0)
1 if(DropFlag)i=1+i/2;
1 i=LLIN-FLIN+2;
1 else wup64(1);
1 \) ELSE /* ALREADY THERE */
1 Z=A,
1 YYVAL[YYPV[P3+P4] + YYPV[P1+P2]] += 2
1 X = 0;
1 WRITE(1,BUF,N);
1 WHILE(1);
1 WHILE(--LIM>0 && (C=GETCHAR()) != EOF && C != '\N')
1 WHILE(
1 WHILE (I < J)
1 WHILE (--N >= 0
1 WHILE ((S2[I] = S1[I] != '\0')
1 WHILE ((N = GETLINE(LINE,MAXLINE)) > 0) {
1 WHILE ((LEN = GETLINE(LINE, MAXLINE)) > 0)
1 WHILE (
1 UNSIGNED X, P, N;
1 UNSIGNED N;
1 TATIC CHAR *ALLOCP = ALLOCBUF; /* NEXT FREE POSITION */
1 STRUCT
1 STRCAT(S,T) /* CONCATENATE T TO END OF S */
1 STACK[I].LPTR=ptr;
1 STACK[I].LCOUNT=count;
1 REVERSE(S) /* REVERSE STRING S IN PLACE */
1 RETURN;
1 RETURN(NP);
1 RETURN(B);
1 RETURN((CHAR *)(P+1));
1 RETURN (P);
1 RETURN (
1 REGISTER INT FD;
1 REGISTER FILE *FP;
1 REGISTER
1 PRINTF(...);
1 PRINTF("%6D%C",A[I],(I%10==9 \!\! I==N-1) ? '\N' : ' ')
1 PRINTF("%4D %6.1F\N", FAHR, (5.0/9.0)*(FAHR-32));
1 POWER(X,N) /* RAISE X N-TH POWER; N > 0;
1 POWER(X,N) /* RAISE X N-TH POWER; N > 0 */
1 PD->MONTH = I;
1 PD->DAY = PD->YEARDAY;
1 P->S.SIZE += G->S.PTR->S.SIZE;
1 P->S.PTR = G->S.PTR;
1 P->S.PTR = G->S.PTR->S.PTR;
1 NDIGIT[I] = 0;
1 N=READ(0,BUF,BUFSIZE);
1 MAX = 0;
1 MAIN(ARGC, ARGV) /* FIND PATTERN FROM FIRST ARGUMENT */
1 MAIN() /* TEST POWER FUNCTION */
1 MAIN() /* RUDIMENTARY DESK CALKULATOR */
1 MAIN() /* FIND LONGEST LINE */
1 MAIN() /* FIND ALL LINES MATCHING A PATTERN */
1 MAIN() /* REMOVE TRAILING BLANKS AND TABS */
1 MAIN()
1 LSEEK(FD,OL,2);
1 LINT
1 LEAP = PD->YEAR % 4 == 0 && PD->YEAR % 100 != 0
1 INT X, V[], N;
1 INT P;
1 INT N;
1 INT MAX; /* MAXIMUM LENGTH SEEN SO FAR */
1 INT LOWER, UPPER, STEP;
1 INT LEN; /* CURRENT LINE LENGTH */
1 INT I;
1 INT I, LEAP;
1 INT C, I, J;
1 INT B;
1 INT _FLAG; /*MODE OF FILE ACCESS*/
1 INT _FD; /*FILE DESCRIPTOR*/
1 INT _CNT; /*NUMBER OF CHARACTERS LEFT*/
1 INT (
1 IF.
1 IF(FP->_FLAG & _UNBUF) /*UNBUFFERED*/
1 IF(FP->_CNT== -1)
1 IF((FP->_FLAG & (_READ \! _WRITE))==0)
1 IF((FD=OPEN(NAME,1))==-1)
1 IF (WRITE(F2,BUF,N) !=N)
1 IF (P->S.SIZE==NUNITS) /*EXACTLY*/
1 IF (A[I] < 0) /* SKIP NEGATIVE ELEMENTS */
1 IF ((NP->DEF = STRSAVE(DEF)) == NULL)
1 IF ((*CS++ = C)=='\N')
1 IF (
1 I = 0;
1 GETLINE(S,LIM) /* GET LINE INTO S,RETURN LENGTH */
1 GETLINE(S, LIM) /* GET LINE INTO S, RETURN LENGTH *
1 GETBITS(X,P,N) /* GET N BITS FROM POSITION P */
1 G->S.SIZE+=P->S.SIZE;
1 G->S.PTR=P;
1 G->S.PTR=P->S.PTR;
1 FPRINTF(STDERR,"ILLEGAL MODE %S OPENING %S\N",
1 FPRINTF(STDERR,"FSIZE:CAN'T FIND %S\N",NAME);
1 FP->_CNT = 0;
1 FOR(I = 0, J = STRLEN(S) - 1; I < J; I++, J--) {
1 FOR (POWER = 1; S[I] >= '0' && S[I] <= '9'; I++) {
1 FOR (P = 1; N > 0; --N)
1 FOR (I = 1; PD->DAY > DAY_TAB[LEAP][I]; I++)
1 FOR (I = 0; I < N; I++)
1 FOR (B = 0; N != 0; N >>= 1)
1 FOR (;;) {
1 FOR
1 FLOAT FAHR, CELSIUS;
1 FD=OPEN(NAME,0);
1 FD=CREAT(NAME,PMODE);
1 EXTERN;
1 EXIT(1);
1 EXIT(0);
1 ERROR("USAGE:CP FROM TO", NULL);
1 ERROR("CP:CAN'T OPEN %S", ARGV[1]);
1 ERROR("CP: CAN'T CREATE %S", ARGV[2]);
1 ELSE \( /*ALLOCATE TAIL END*/
1 ELSE IF(C== ' ' \!\! C== '\N' \!\! C== '\T')
1 ELSE IF(C == ' ' \!\! C == '\N' \!\! C == '\T')
1 ELSE IF((FP->_BASE=CALLOC(_BUFSIZE,1))==NULL)
1 DOUBLE ATOF(S) /* CONVERT STRING S TO DOUBLE */
1 DIRECTORY(NAME);
1 DAY_OF_YEAR(YEAR, MONTH, DAY) /* SET DAY OF YEAR */
1 COPY(S1, S2) /* COPY S1 TO S2;
1 COPY() /* SPECIALIZED VERSION */
1 CLOSE(FD);
1 CHAR S[], T[]; /* S MUST BE BIG ENOUGH */
1 CHAR SAVE[MAXLINE]; /* LONGEST LINE, SAVED */
1 CHAR S1[], S2[];
1 CHAR LINE[MAXLINE]; /* CURRENT INPUT LINE */
1 CHAR LINE[MAXLINE];
1 CHAR *_PTR; /*NEXT CHARACTER POSITION*/
1 CHAR *_BASE; /*LOCATION OF BUFFER*/
1 BUFP = BUF;
1 BREAK; /*AT ONE END OR OTHER*/
1 BITCOUNT(N) /* COUNT 1 BITS IN N */
1 BINARY(X, V, N) /* FIND X IN V[0]...V[N-1] */
1 BFREE(P,N),
1 ALLOCP=G;
1 ALLOC
1 =ON,
1 ; /* SKIP WHITE SPACE CHARACTERS */
1 300 140.9
1 280 137.8
1 260 126.7
1 123.45
1 121019, mOSKWA, g-19,
1 ... ...
1 ++NWHITE;
1 ++NOTHER;
1 ++NDIGIT[C-'0'];
1 *--NBP='\0'; /*RESTORE NAME*/
1 (N > 0) ? F : N
1 #DEFINE TOOBIG '9' /* SIGNAL THAT STRING IS TOO BIG *
1 #DEFINE NUMBER '0' /* SIGNAL THAT NUMBER FOUND */
1 #DEFINE MAXOP 20 /* MAX SIZE OF OPERAND, OPER
1 #DEFINE MAXLINE 1000
1 #DEFINE MAXLINE 1000
1 #DEFINE MAXLINE 100
1 "C"
1 {lin=1+LASTLIN-FIRSTLIN;
1 {lin=1+FIRSTLIN-LASTLIN;
1 while((direction=getcontr()) != _up_key)
1 while((direction=getcontr()) != _down_key)
1 while((*(ptrBuf++))!=LF);/*calk next line ptr*/
1 while(!rawin());
1 u >>= 8;
1 u += *a++ + *b++;
1 status=2;
1 status=-2;
1 return lin; }
1 q->_size += p->_size;
1 q->_ptr = p->_ptr;
1 q = p;
1 printf("\nerror file %s \n",f_name);
1 p->_size += q->_ptr->_size;
1 p->_ptr = q->_ptr->_ptr;
1 p = p->_ptr;
1 lenght=(num_s-1)*256+(fil_dat->len%256);
1 j++;
1 if(*s>=16)
1 if(*s<0)
1 if (p->_size >= nbytes) /* big enough */
1 if (p == _allocp) /* wrapped around free list */
1 if (*argv > max) max = *argv;
1 if (! *s) return 0;
1 for (i = gap; i < num_items; ++i)
1 byte_gap = gap * size;
1 awtorskie programmy.
1 _base._size = 0;
1 _base._ptr = _allocp = q = &_base;
1 ^ LEFT TO RIGHT
1 \!\! LEFT TO RIGHT
1 \! LEFT TO RIGHT
1 Z = (A > B) ? A : B; /* Z = MAX(A,B) */
1 WHILE (GETLINE(LINE, MAXLINE) > 0)
1 WHILE (--N >= 0)
1 WHILE ((T = GETWORD(WORD,MAXWORD)) != EOF)
1 WHILE ((C = GETCHAR()) != EOF)
1 UNGETCH() {...}
1 TATIC CHAR ALLOCBUF[ALLOCSIZE];/* STORAGE FOR ALLOC */
1 S[I] = '\0';
1 STRUCT TNODE *TALLOC()
1 STRUCT NLIST *NP, *LOOKUP();
1 STRUCT KEY TAB[];
1 STRCPY(BUF,*++ARGV);
1 STATIC INT BUFP=0; /*NEXT FREE POSITION IN BUF */
1 STATIC CHAR BUF[BUFSIZE]; /* BUFFER FOR UNGETCH */
1 RETURN(I);
1 RETURN(-1);
1 PRINTF("HELLO, WORLD\N");
1 PRINTF("%S\N",LINE);
1 PRINTF ,
1 OPERATOR ASSOCIATIVITY
1 NS=((FF-BF)>MAXBUF/256)? MAXBUF/256: (FF-BF);
1 NP->NEXT = HASHTAB[HASHVAL];
1 NP = (STRUCT NLIST *) ALLOC(SIZEOF(*NP));
1 MONTH_DAY(PD) /* SET MONTH AND DAY FROM DAY OF YEAR */
1 MAIN() /* COUNT "C" KEYWORDS */
1 LINE[N+1] = '\0';
1 INT LIM;
1 INT HASHVAL;
1 INT GAP, I, J, TEMP;
1 INT FAHR;
1 INT C, I;
1 INT (*COMP)(), (*EXCH)();
1 INT N, T;
1 INDEX(S,T) /* RETURN INDEX OF T IN S,-1 IF NONE */
1 IF((NP = LOOKUP(NAME)) == NULL) \( /* NOT FOUND */
1 IF (NP == NULL)
1 IF (N > 0) {
1 IF (C == '\N')
1 IF ((NP->NAME = STRSAVE(NAME)) == NULL)
1 IF (
1 I=find_I(I,mode);
1 I = 0;
1 HASHVAL = HASH(NP->NAME);
1 HASHTAB[HASHVAL] = NP;
1 GETCH() {...}
1 FSIZE(BUF);
1 FOR (N =0; N < NKEYS; N++)
1 FOR (J=I-GAP; J>=0 && V[J]>V[J+GAP]; J-=GAP) {
1 FOR (I = 0; I < N; I++)
1 FOR (GAP = N/2; GAP > 0; GAP /= 2)
1 FOR (FAHR = 0; FAHR <= 300; FAHR = FAHR + 20)
1 FOR ( ... )
1 FF=16*(*t)+(*s);
1 FAHR = FAHR + STEP;
1 F(X)
1 ELSE IF (
1 ELSE
1 DOUBLE X;
1 DEFINE HASHSIZE 100
1 CHAR WORD[MAXWORD];
1 CHAR S[];
1 CHAR *WORD;
1 CHAR *V[]; /* INTO INCREASING ORDER */
1 CHAR *STRSAVE(), *ALLOC();
1 CHAR *S, *T;
1 CH AR S[];
1 CELSIUS = (5.0/9.0) * (FAHR-32.0);
1 CELSIUS = (5.0/9.0) * (FAHR -32.0);
1 BINARY(WORD, TAB, N) /* FIND WORD
1 ATOI(S) /* CONVERT STRING S TO INTEGER */
1 ?: RIGHT TO LEFT
1 == != LEFT TO RIGHT
1 = += -= ETC. RIGHT TO LEFT
1 << >> LEFT TO RIGHT
1 < <= > >= LEFT TO RIGHT
1 8.5.
1 60 15.6
1 40 4.4
1 4.2.
1 20 -6.7
1 19.2.
1 /* PRINT FAHRENHEIT-CELSIUS TABLE
1 /* FOUND ONE AT POSITION I, J */
1 /* 64 CHR Viewer library*/
1 --------------------------------------------------------
1 -------------------------------------------------------
1 -
1 , (CHAPTER 3) LEFT TO RIGHT
1 ++s; ++t;
1 ++I;
1 + - LEFT TO RIGHT
1 *t=T;
1 *s=S;
1 *s+=dir;
1 *c++ = u & 0xff;
1 * / % LEFT TO RIGHT
1 () [] -> . LEFT TO RIGHT
1 && LEFT TO RIGHT
1 & LEFT TO RIGHT
1 #DEFINE MAXWORD 20
1 ! \^ ++ -- - (TYPE) * & SIZEOF RIGHT TO LEFT
1 } ELSE /* NOT ENOUGH ROOM */
1 |lektronnyj vurnal
1 ret
1 ptrBuf=stacker(0,0,1);
1 ptrBuf=stacker(0,0,-1);
1 if(count >= MAXFILES) goto end_cat;
1 if(DropFlag) i -= 1+(STACK[I].LCOUNT/(1+LROW-FROW));
1 connect(&out_cat[count++],&fil[j]);
1 \!\! PD->YEAR % 400 == 0;
1 Z = B;
1 YEARDAY -= DAY_TAB[LEAP][I];
1 X = MAX(P+Q, R+S);
1 X = ((P+Q) > (R+S) ? (P+Q) : (R+S));
1 WHILE((S[I++] = T[J++]) != '\0') /*COPY T*/
1 WHILE((C = GETCHAR()) != EOF) {
1 WHILE (S[I] == T[I])
1 WHILE (LOW <= HIGH) \(
1 WHILE (C != EOF) {
1 WHILE ((C = GETCHAR()) != EOF)
1 WHILE (
1 V[J] = V[J+GAP];
1 V[J+GAP] = TEMP;
1 TYPEDEF
1 TEMP = V[J];
1 S[J] = '\0';
1 S[I++] = N % 10 + '0';/* GET NEXT DIGIT */
1 S[I++] = C;
1 S[I++] = '-'
1 STATIC INT DAY_TAB[2][13] = {
1 STATIC
1 SIGN = 1;
1 SIGN = (S[I++]=='+') ? 1 : - 1;
1 RETURN(S[I]-T[I]);
1 RETURN(READ(FD,BUF,N));
1 RETURN(NULL); /*NONE LEFT*/
1 RETURN(-1);
1 RETURN(*S-*T);
1 RETURN ((STRUCT TNODE *) ALLOC(SIZEOF(STRUCT TNODE)));
1 REGISTER INT X;
1 REGISTER INT C,N;
1 REGISTER CHAR C;
1 REGISTER
1 REE(P) /* FREE STORAGE POINTED BY P */
1 PRINTF("ERROR - N IS ZERO\N");
1 PRINTF("%D %D %D\N", NL, NW, NC);
1 PRINTF( "%S", SAVE );
1 PRINTD(N) /* PRINT N IN DECIMAL (RECURSIVE)*/
1 NWHITE = NOTHER = 0;
1 NL++;
1 N = 10 * N + S[I] - '0';
1 N = -N; /* MAKE N POSITIVE */
1 MAX = 0;
1 MAIN(ARGC, ARGV) /* FIND PATTERN FROM FIRST ARGUMENT */
1 MAIN() /* COUNT DIGITS, WHITE SPACE, OTHERS */
1 LSEEK(FD,POS,0); /*GET TO POS*/
1 LOW = 0;
1 LONG DAY = 60 * 24; /* MINUTES IN A DAY */
1 INWORD = NO;
1 INT YEAR, MONTH, DAY; /* FROM MONTH & DAY */
1 INT X = 1;
1 INT LOW, HIGH, MID, COND;
1 INT I;
1 INT I, J;
1 INT GAP, I, J;
1 INT C, NL, NW, INWORD;
1 INT C, I;
1 INT C, I, NWHITE, NOTHER, NDIGIT[10];
1 INT BUFP = 0; /* NEXT FREE POSITION IN BUF */
1 INT NDIGIT[10];
1 INT I, SIGN;
1 INT LEN;
1 IF((FP=FOPEN(*++ARGV,"R#))==NULL) \(
1 IF( C >= '0' && C <= '9')...
1 IF( A > B )
1 IF (S[I] == '.')
1 IF (S[I] == '+' \!\! S[I] == '-') /* SIGN */
1 IF (C =='\N')
1 IF (ARGC != 1)
1 IF (A > B)
1 IF ((FP=FOPEN(*++ARGV,"R"))==NULL) \(
1 IF ( LEN > MAX ) {
1 IF ( C >= 'A' && C <= 'Z' )
1 I = 0;
1 HIGH = N - 1;
1 HAR *P;
1 HAR *ALLOC(N) /* RETURN POINTER TO N CHARACTERS */
1 GETCH() /* GET A (POSSIBLY PUSHED BACK) CHARACTER */
1 FP->_FLAG \!=_UNBUF; /*CAN'T GET BIG BUF*/
1 FP->_FLAG \!=_BIGBUF; /*GOT BIG ONE*/
1 FP->_FLAG \! = _EOF;
1 FP->_FLAG \! = _ ERR;
1 FP->_BASE=&SMALLBUF[FP->_FD];
1 FOR(J=I, K=0; T[K] !='\0' && S[J] == T[K]; J++; K++)
1 FOR(GAP = N/2; GAP > 0; GAP /= 2)
1 FOR (VAL = 0; S[I] >= '0' && S[I] <= '9'; I++)
1 FOR (J = 0; J < M && !FOUND; J++)
1 FOR (I = 0; S[I] != '\0'; I++) {
1 FOR (I = 0; I < N; I++)
1 FOR (I = 0; I < MAXLINE-1
1 FOR (I = 0; I < 10; I++)
1 FOR ( I = J = 0; S[I] != '\0'; I++)
1 FOR ( ; *S == *T; S++, T++)
1 F(C,N)
1 EXTERN CHAR LINE[];
1 EXTERN INT MAX;
1 EXTERN CHAR SAVE[];
1 EXTERN
1 ERROR("CP: WRITE ERROR", NULL);
1 ELSE /*@
1 E RPW !"#$%&'()*+,-./DDDDDDDDDD:;<=>?@LLLLLLLLLLLLLLLLLLLLLLLLLL[\]^L`LLLLLLLLLLLLLLLLLLLLLLLLLL{|}~
1 DOUBLE VAL, POWER;
1 DEFINE NULL 0 /* POINTER VALUE FOR ERROR REPORT */
1 DEFINE ALLOCSIZE 1000 /* SIZE OF AVAILABLE SPACE */
1 DEC PDP-11 HONEYWELL IBM 370 INTERDATA 8/32
1 DAY += DAY_TAB[LEAP][I];
1 CLEAN UP THE MESS
1 CHAR SQUOTE = '\'';
1 CHAR BUF[BUFSIZE]; /* BUFFER FOR UNGETCH */
1 CHAR *ALLOC();
1 C = GETCHAR();
1 BREAK;
1 AUTO
1 A/Q 16. inforkom.
1 == ' ' \!\! C == '\N' \!\! C == '\T')
1 ; /* SKIP WHITE SPACE */
1 7.1.
1 22.4.
1 0x3A,&ROW,0xD7)
1 0x3A,&LIN,0xD7,
1 0x32,&KEM_J/*ld(KEM_J),a*/
1 0 -17.8
1 /* NOT FOUND */
1 /* IT WAS AT I-1, J-1 */
1 ++I;
1 #DEFINE MAX(A, B) ((A) > (B) ? (A) : (B))
1 #DEFINE BUFSIZE 100
1 "UNIX" (
1 pe~atnye platy.
1 long_set(x, a[i-j] * b[j], i);
1 long_add(product, product, x);
1 if(direction==_up_key) _beep(255,255);
1 if(direction==_down_key)_beep(255,255);
1 if(*s>=16)
1 if(*s<0)
1 for (p = list + i * size - byte_gap; p >= list; p -= byte_gap)
1 else i--;
1 dorogie druzxq !
1 \!\! PD->YEAR % 400 == 0;
1 WHILE (S[I] != '\0') / *FIND END OF S */
1 WHILE (S[I] != '\0')
1 WHILE (LOW <= HIGH) {
1 WHILE (GETCHAR() != EOF )
1 WHILE (--ARGC > 0 && (*++ARGV)[0] == '-')
1 WHILE ((SAVE[I] = LINE[I]) !='\0')
1 UNSIGNED
1 S[J] = C;
1 S[J++] = S[I];
1 S[I] = S[J];
1 S[I] = C;
1 S[I] = '\0';
1 STRUCT NLIST *INSTALL(NAME, DEF) /* PUT (NAME, DEF) */
1 SHORT
1 RETURN(SIGN * VAL / POWER);
1 RETURN(N);
1 RETURN(I)
1 RETURN(-1);
1 RETURN((X >> (P+1-N)) & \^(\^0 << N));
1 RETURN (P);
1 RETURN (
1 PUSH(POP()/OP2);
1 PUSH(POP());
1 PRINTF("\T%.2F\N",SUM+=ATOF(LINE));
1 PRINTF("UNGETCH: TOO MANY CHARACTERS\N");
1 PRINTF("...");
1 PRINTF("%S", SAVE);
1 PRINTF("%D\N", NL);
1 PRINTF("%D %D %D\N",I,POWER(2,I),POWER(-3,I));
1 PRINTF("%1D\N", NC);
1 PRINTF("%.0F\N", NC);
1 PRINTF(" %D", NDIGIT[I]);
1 PRINTD(N) /* PRINT N IN DECIMAL */
1 PD->DAY -= DAY_TAB[LEAP][I];
1 P = P * X;
1 P = 1;
1 NWHITE = NOTHER = 0;
1 NL = 0;
1 NC = 0;
1 NC = (NL = (NW = 0));
1 N = 0;
1 MAX = LEN;
1 MAIN(ARGC, ARGV) /* SORT INPUT LINES */
1 MAIN() /* REVERSE POLISH DESK CALCULATOR */
1 MAIN() /* COUNT DIGITS, WHITE SPACE, OTHERS */
1 LOW = 0;
1 LONG POS;
1 LONG NC;
1 LONG LINENO = 0;
1 LONG
1 LINE[I] = '\0'
1 INT SP = 0; /* STACK POINTER */
1 INT NWHITE = 0;
1 INT NOTHER = 0;
1 INT NDIGIT[10] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 };
1 INT N;
1 INT I, P;
1 INT I, N;
1 INT I, J;
1 INT FD, N;
1 INT EXCEPT = 0, NUMBER = 0;
1 INT C,NL;
1 INT C, I;
1 INT ARGC;
1 INT *PN;
1 INT SP;
1 INT NDIGIT[10];
1 INT C, I, NWHITE, NOTHER;
1 INT
1 IF((P=MORECORE(NUNITS))==NULL)
1 IF( C==' ' \!\! C=='\N' \!\! C=='\T')
1 IF (P >= ALLOCBUF && P < ALLOCBUF + ALLOCSIZE)
1 IF (N & 01)
1 IF (INDEX(LINE, "THE") >= 0)
1 IF (I > 0) THEN
1 IF (C == '\N') {
1 IF (ARGC != 2)
1 IF (ALLOCP + N <= ALLOCBUF + ALLOCSIZE) {
1 IF (
1 I = J = 0;
1 HIGH = N - 1;
1 GETINT(PN) /* GET NEXT INTEGER FROM INPUT */
1 GET(FD,POS,BUF,N) /*READ N BYTES FROM POSITION POS*/
1 FOR(I=0;I<LIM-1 && (C=GETCHAR())!=EOF && C!='\N';++I)
1 FOR(I = 0; I < 10; ++I)
1 FOR (NC = 0; GETCHAR() != EOF; ++NC)
1 FOR (I =1; I <= N; ++I)
1 FOR (I = 0; I < 10; I++)
1 FOR ( I = 0; S[I]>='0' && S[I]<='9'; ++I)
1 FLOAT
1 EXTERN CHAR LINE[], SAVE[];
1 EXTERN INT SP;
1 EXTERN DOUBLE VAL[];
1 ELSE IF (
1 DOUBLE VAL[MAXVAL]; /*VALUE STACK */
1 DOUBLE PUSH(F) /* PUSH F ONTO VALUE STACK */
1 DOUBLE POP() /* POP TOP VALUE FROM STEACK */
1 DOUBLE F;
1 DOUBLE VAL[MAXVAL];
1 DOUBLE NC;
1 DOUBLE
1 DAY += DAY_TAB[LEAP][I];
1 COPY(LINE, SAVE);
1 CLEAR() /* CLEAR STACK */
1 CHAR LINE[MAXLINE];
1 CHAR LINE[MAXLINE], *S;
1 CHAR *NAME, *DEF;
1 CHAR *BUF;
1 CHAR *ARGV[];
1 CHAR
1 CC MAIN.C GETLINE.C INDEX.C
1 CC MAIN.C GETLIN.O INDEX.O
1 C = S[I];
1 BUF [BUFP++] = C;
1 ; /* SKIP WHITE SPACE */
1 8.4.
1 7.9.1.
1 7.5.
1 2.6.
1 2.10.
1 12-45+*=
1 10
1 0xe1,0xd1,0xc1);
1 0xdd,0xe1);
1 0xdd,0x4e,6,
1 0xcd,15635,
1 0xcd,0x3b5,
1 0xcd,0x24ba);
1 0xcd,0x22e5);
1 0xED,0x5B,&de,
1 0xDD,0xE1);
1 0xCD,0x3B5,
1 0x32,ChrAdr,
1 0x2A,&hl,
1 0x22,0x5C3D,
1 0x22,&FO_ADR);
1 0x21,25200,
1 ...
1 *s=15;}
1 *s=0;}
1 (1-2)*(4+5)=
1 #INCLUDE "FILENAME"
1 #DEFINE THEN
1 #DEFINE TES 1
1 #DEFINE MAXVAL 100 /* MAXIMUM DEPTH OF VAL STACK */
1 #DEFINE LINES 100 /* MAX NUMBER OF LINES
1 #DEFINE END ;}
1 #DEFINE BEGIN {
1 { *t+=dir;
1 _up_key,
1 \) ELSE
1 \!\! LINE[N] == '\N'))
1 WHILE (GETLINE(LINE, MAXLINE) > 0)
1 WHILE (--NLINES >= 0)
1 WHILE ((TUPE=GETOP(S,MAXOP)) !=EOF);
1 UNION \(
1 UNION
1 STRUCT NLIST *NP;
1 STRUCT NLIST *LOOKUP(S) /* LOOK FOR S IN HASHTAB */
1 STRUCT
1 STRCPY(S, T) /* COPY T TO S; POINTER VERSION 3 */
1 STRCPY(S, T) /* COPY T TO S; POINTER VERSION 2 */
1 STRCPY(S, T) /* COPY T TO S; POINTER VERSION 1 */
1 RETURN(NULL); /* NOT FOUND */
1 RETURN(MID);
1 RETURN(ATOF(S));
1 READLINES(LINEPTR, MAXLINES) /* READ INPUT LINES */
1 PUTCHAR(N % 10 + '0');
1 PUTCHAR (C)
1 PRINTF(STDERR,
1 PRINTF("CAT:CAN'T OPEN %\N",*ARGV);
1 PRINTF("%4D %S/N", P->KEYCOUNT, P->KEYWORD);
1 NWHITE, NOTHER);
1 NWHITE++;
1 NWHITE = NOTHER = 0;
1 NUMCMP(S1, S2) /* COMPARE S1 AND S2 NUMERICALLY */
1 NOTHER++;
1 NDIGIT[C-'0']++;
1 MID = LOW + (HIGH-LOW) / 2;
1 MID = (LOW+HIGH) / 2;
1 MAIN(ARGC, ARGV) /* ECHO ARGUMENTS; 3RD VERSION */
1 MAIN(ARGC, ARGV) /* ECHO ARGUMENTS; 2ND VERSION */
1 MAIN(ARGC, ARGV) /* ECHO ARGUMENTS; 1ST VERSION */
1 MAIN() /* SORT INPUT LINES */
1 LOW = MID + 1;
1 INT TUPE;
1 INT SWAP(); /* EXCHANGE FUNCTION */
1 INT STRCMP(), NUMCMP(); /* COMPARSION FUNCTIONS */
1 INT SP = 0; /* STACK POINTER */
1 INT NUMERIC = 0; /* 1 IF NUMERIC SORT */
1 INT NLINES; /* NUMBER OF INPUT LINES READ */
1 INT NDIGIT[10];
1 INT N;
1 INT MAXLINES;
1 INT LOW, HIGH, MID;
1 INT I; /* DECLARE A NEW I */
1 INT C, I, NWHITE, NOTHER;
1 IF(NLINES = READLINES(LINEPTR, LINES)) >= 0) \(
1 IF(ARGC>1 && ARGV[1][0] == '-' && ARGV[1][1]=='N')
1 IF((COND = STRCMP(WORD, TAB[MID].KEYWORD)) < 0)
1 IF (T[K] == '\0')
1 IF (T == LETTER)
1 IF (SP > 0)
1 IF (SP < MAXVAL)
1 IF (N < 0) {
1 IF (MAX > 0) /* THERE WAS A LINE */
1 IF (LEN > MAX) {
1 IF (KEYTAB[N].KEYCOUNT > 0)
1 IF (FLAGS.IS_EXTERN == 0 &&FLAGS.IS_STATIC == 0)...
1 IF ((I = N/10) != 0)
1 IF ((COND = STRCMP(WORD, MID->KEYWORD)) < 0)
1 HISOFT-C Compiler V1.1B
1 HIGH = MID - 1;
1 FOR ALL GOOD
1 FOR (NP = HASHTAB[HASH(S)]; NP != NULL;NP=NP->NEXT)
1 FOR (J = 0; J < M; J++)
1 FOR (I = GAP; I < N; I++)
1 FOR (I = 0; I < NLINES; I++)
1 FOR (I = 0; I < N; I++)
1 FOR (I = 0; I < 10; I++)
1 FOR ( ... ) {
1 FOR F = 0, 20, ..., 300 */
1 FF \F
1 FCLOSE(FP);
1 EXTERN INT SP;
1 EXTERN DOUBLE VAL[];
1 EXIT(1);
1 ELSE /(
1 DUMMY () { }
1 DOUBLE X;
1 DOUBLE VAL[MAXVAL]; /* VALUE STACK */
1 DOUBLE PUSH(F) {...}
1 DOUBLE POP() {...}
1 DOUBLE OP2,ATOF(),POP(),PUSH();
1 DOUBLE ATOF();
1 CLEAR() {...}
1 CHAR S[MAXOP];
1 CHAR *S;
1 CHAR *S1, *S2;
1 CHAR *MONTH_NAME(N) /* RETURN NAME OF N-TH MONTH */
1 CHAR *LINEPTR[]; /* FOR SORTING */
1 CHAR *LINEPTR[LINES]; /* POINTERS TO TEXT LINES */
1 C = GETCHAR()
1 ASCII ASCII EBCDIC ASCII
1 =
1 ;
1 :
1 7.4.
1 5.8.
1 4.5.
1 4.
1 22.3.
1 1991 TJU B-disk version
1 19.
1 /* DIDN'T FIND */
1 ... /* DO POSITIVE ELEMENTS */
1 ++NWHITE;
1 ++NOTHER;
1 ++NDIGIT[C-'0'];
1 ++I;
1 *s += dir;
1 )
1 (0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
1 (0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),
1 && (LINE[N] == ' ' \!\! LINE[N] == '\T'
1 #DEFINE SQUARE(X) X * X
1 #DEFINE NULL 0
1 #DEFINE NKEYS (SIZEOF(KEYTAB) / SIZEOF(STRUCT KEY))
1 #DEFINE MAXLEN 1000
1 #DEFINE LINES 100 /* MAX LINES TO BE SORTED */
1 } WHILE ((N /= 10) > 0); /* DISCARD IT */
1 } ELSE { /* IT'S TOO BIG; SKIP REST OF LINE */
1 { *t+=dir;
1 return cast(__char_ptr) (p+1);
1 p->_size = nbytes;
1 p = _allocp;
1 if (p->_size == nbytes) q->_ptr = p->_ptr; /* just right size */
1 if ((p = cast(HEADER_PTR) sbrk(nbytes * sizeof(HEADER))) == ERROR)
1 free(p+1);
1 else
1 _allocp = q;
1 \);
1 \) TREENODE, *TREEPTR;
1 \) ELSE IF ((COND = STRCMP(W, P->WORD)) == 0)
1 \!\! C == '\T'); /* SKIP WHITE SPACE */
1 WHILE (LOW <= HIGH) \(
1 WHILE (--LIM > 0) \(
1 WHILE (--I >= 0)
1 WHILE ((T = GETWORD(WORD, MAXWORD;) !=EOF)
1 WHILE ((LEN = GETLINE(LINE, MAXLEN)) > 0)
1 WHILE ((C = GETCH()) == ' ' \!\! C == '\N'
1 TYPEDEF STRUCT TNODE \( /* THE BASIC NODE */
1 TREEPTR TALLOC()
1 SUM = 0;
1 STRUCT TNODE *TREE(P, W)
1 STRUCT TNODE *RIGHT; /* RIGHT CHILD */
1 STRUCT TNODE *P;
1 STRUCT TNODE *LEFT; /* LEFT CHILD */
1 STRUCT KEY *MID;
1 STRUCT KEY *LOW = &TAB[0];
1 STRUCT KEY *HIGH = &TAB[N-1];
1 STRUCT KEY *BINARY(), *P;
1 STRUCT PERSON \(
1 STRLEN:
1 STATIC CHAR *NAME[] = \(
1 SIGN = 1;
1 SIGN = (S[I++] == '+') ? 1 : -1;
1 RETURN(LETTER);
1 RETURN(C);
1 RETURN(ALLOCP - N); /* OLD P */
1 RETURN((BUFP > 0) ? BUF[--BUFP] : GETCHAR());
1 RETURN (NULL);
1 RETURN (MID);
1 REGISTER INT I;
1 PRINTF((ARGC > 1) ? "%S" : "%S\N", *++ARGV);
1 PRINTF("HELLO, WORLD
1 PRINTF("FIND: ILLEGAL OPTION %C\N", *S);
1 PRINTF("%S%C",*++ARGV, (ARGC > 1) ? ' ' : '\N');
1 PRINTF("%S%C", ARGV[I], (I<ARGC-1) ? ' ' : '\N');
1 PRINTF("%4D %S\N",
1 POWER *= 10;
1 P = P * X;
1 NLINES = 0;
1 MAIN() /* WORD FREGUENCY COUNT */
1 LOW = MID + 1;
1 INT NLINES; /* NUMBER OF INPUT LINES READ */
1 INT LEN, NLINES;
1 INT I;
1 INT COUNT; /* NUMBER OF OCCURRENCES */
1 INT C,SIGN;
1 INT C, I;
1 INT T;
1 INT SP = 0;
1 INT COND;
1 IF (S[I++] == '\0')
1 IF (N < 0) {
1 IF (C == '+' \!\! C == '-') { /* RECORD
1 IF (C != EOF)
1 IF (BUFP > BUFSIZE)
1 IF (*S == '\0')
1 IF ((P = ALLOC(STRLEN(S)+1)) != NULL)
1 IF ((NLINES = READLINES(LINEPTR, LINES)) >= 0) \(
1 I++;
1 I = 0;
1 HT \T
1 HIGH = N - 1;
1 HIGH = MID - 1;
1 GOTO FOUND;
1 GOTO ERROR;
1 GETWORD(W, LIM) /* GET NEXT WORD FROM INPUT */
1 GETOP(S, LIM) /* GET NEXT OPRERATOR OR OPERAND */
1 FREE((NP->DEF);/* FREE PREVIOUS DEFINITION */
1 FOR(J = I-GAP; J >= 0; J -= GAP) \(
1 FOR (P=KEYTAB; P>KEYTAB + NKEYS; P++)
1 FOR (I = 1; YEARDAY > DAY_TAB[LEAP][I]; I++)
1 FOR (*PN = 0; C >= '0' && C <= '9'; C = GETCH())
1 ELSE /(
1 ELSE /* GREATER INTO RIGHT SUBTREE */
1 DOUBLE SUM, ATOF();
1 DOUBLE VAL[MAXVAL];
1 DOUBLE SUM, ATOF();
1 DOUBLE PUSH(F) {...}
1 DOUBLE POP() {...}
1 DO {
1 D.YEARDAY = DAY_OF_YEAR(D.YEAR, D.MONTH, D.DAY);
1 CLEAR() {...}
1 CHAR WORD[MAXWORD];
1 CHAR S[];
1 CHAR S[10];
1 CHAR PATTERN[] = { 'T', 'H', 'E', '\0' };
1 CHAR *WORD; /* POINTS TO THE TEXT */
1 CHAR *P, *ALLOC();
1 CHAR *P, *ALLOC(), LINE[MAXLEN];
1 CHAR *LINEPTR[LINES]; /*POINTERS TO TEXT LINES */
1 C = (5/9)*(F-32).
1 BREAK;
1 ARGC = 0;
1 ALLOCP = P;
1 ALLOCP += N;
1 8.6.
1 7.3.
1 6.5.
1 5.2.
1 4.11.1.
1 2.9.
1 2.8.
1 2.12.
1 *PMONTH = I;
1 *PDAY = YEARDAY;
1 *(W-1) - '\0';
1 (UNLINK).......................................
1 #DEFINE MAXWORD 20
1 ");
1 ! H ! E ! L ! L ! O ! \N ! \0 !
1 ! !
1 !
1 !
1 WHILE((C=GETCH())==' '\!\! C=='\T' \!\! C=='\N')
1 WHILE (GETLINE(LINE, MAXLINE) > 0) \(
1 V2 = ATOF(S2);
1 V1 = ATOF(S1);
1 UNGETCH(C);
1 UNGETCH(C) /* PUSH CHARACTER BACK ON INPUT */
1 TYPE(C) /* RETURN TYPE OF ASCII CHARACTER */
1 TREEPRINT (P) /* PRINT TREE P RECURSIVELY */
1 T = TYPE(C = *W++ = GETCH());
1 S[I] = '\0';
1 SWITCH(TUPE) /(
1 STRUCT TNODE *P;
1 STRUCT NLIST \( /* BASIC TABLE ENTRY */
1 STRUCT KEY TAB [];
1 SP=0;
1 SORT(V, N) /* SORT STRINGS V[0] ... V[N-1] */
1 RETURN(NP); /* FOUND IT */
1 RETURN(NLINES);
1 RETURN(I);
1 RETURN(DAY);
1 RETURN (NUMBER);
1 PRINTF("USAGE: FIND -X -N PATTERN\N");
1 PRINTF("%S", LINE);
1 PRINTF ("USAGE: FIND PATTERN\N");
1 MAIN() /* COUNT C KEYWORD; POINTER VERSION */
1 LOW = 0;
1 INT N, V, ARRAY[SIZE];
1 INT MID;
1 INT LOW, HIGH, MID;
1 INT LOW = 0;
1 INT I, LEAP;
1 INT HIGH = N - 1;
1 INT C;
1 INT C, T;
1 IF(V1 < V2)
1 IF((N = BINARY(WORD,KEYTAB,NKEYS)) >= 0)
1 IF (TYPE(C=*W++=GETCH()) !=LETTER) \(
1 IF (T ! = LETTER && T ! = DIGIT) \(
1 IF (P >= ALLOCBUF && P < ALLOCBUF + ALLOCSIZE)
1 IF (I < LIM) { /* NUMBER IS OK */
1 IF (I < LIM)
1 IF (C>= 'A' && C<= 'Z' \!\! C>= 'A' && C<= 'Z')
1 IF (C==' ' \!\! C=='\N' \!\! C=='\T')
1 IF (C == '\N')
1 IF (C == '.') { /* COLLECT FRACTION */
1 I = 2 * I;
1 HELLO, WORLD
1 FOR(I++;(C=GETCHAR()) >='0' && C<='9';I++)
1 FOR(I = GAP; I < N; I++)
1 FOR (S = ARGV[0]+1; *S != '\0'; S++)
1 FOR (N = 0; N < SIZE && GETINT(&V) != EOF; N++)
1 FOR (I = 1; I < MONTH; I++)
1 END
1 ELSE IF(V1 > V2)
1 ELSE IF (INWORD == NO) {
1 ELSE IF (C>= '0' && C<= '9')
1 DOUBLE ATOF(), V1, V2;
1 CONTINUE;
1 CHAR PATTERN[] = "THE";
1 CHAR *WORD /* IN TAB[0]...TAB[N-1] */
1 CHAR *V[]; /* INTO INCREASING ORDER */
1 CHAR *STRSAVE(S) /* SAVE STRING S SOMEWHERE */
1 CASE TOOBIG:
1 CASE NUMBER:
1 CASE 'C':
1 CASE '=':
1 CASE '/':
1 CASE '-':
1 CASE '+':
1 CASE '*':
1 BEGIN
1 7.9.
1 7.7.
1 5.5.
1 5.11.
1 5.10
1 4.5.1.
1 24.
1 2.3.2.
1 2.
1 12.
1 /)
1 ...
1 - trd.l -
1 - Tv.H1 -
1 - Fman.l - (File manager)
1 - 64CHRv.l -
1 - 64.A95 -
1 ++NL;
1 ++NC;
1 **
1 );
1 "CAT: CAN'T OPEN,%S\N", ARGV);
1 { /* split block and allocate tail */
1 {
1 swap(p, p + byte_gap, size);
1 return NULL;
1 if ((*cmp_func)(p, p + byte_gap) <= 0) break;
1 _right_key,
1 _left_key,
1 _inv_key,
1 _exit_key;
1 _down_key,
1 \(
1 WRITELINES(LINEPTR, NLINES);
1 WHILE (FAHR <= UPPER)
1 WHILE (C != '\N' && C != EOF)
1 WHILE (*S++ = *T++)
1 WHILE ((*S++ = *T++) != '\0')
1 WHILE ((*S = *T) != '\0') {
1 S[J] = S[I];
1 S[0] = C;
1 SWAP(PX, PY) /* INTERCHANGE *PX AND *PY */
1 STRUCT KEY *BINARY(WORD, TAB, N) /* FIND WORD */
1 RETURN (TOOBIG);
1 RETURN ((N < 1 \!\! N > 12) ? NAME[0] : NAME[N];
1 PUTCHAR('-');
1 PUTCHAR (C);
1 PRINTF("INPUT TOO BIG TO SORT\N");
1 PRINTF("HELLO, WORLD\N");
1 PRINTF("%S\N", LINEPTR[I]);
1 PRINTD(I);
1 P->Q->MEMB (P->Q)->MEMB
1 NUMERIC = 1;
1 NUMBER = 1;
1 NDIGIT[I] = 0;
1 N = -N;
1 KEYTAB[N].KEYCOUNT, KEYTAB[N].KEYWORD);
1 J++;
1 INTERDATA 8/32 8
1 INT I;
1 INT I, J, K;
1 INT I, C;
1 INT GAP, I, J;
1 INT *PX, *PY;
1 IF (T==LETTER)
1 IF (P->KEYCOUNT > 0)
1 IF (NUMERIC)
1 IF (LINE[N] != ' ' && LINE[N] != '\T'
1 IF (C != '.' && (C < '0' \!\! C > '9'))
1 IF ((P=BINARY(WORD,KEYTAB,NKEYS)) !=NULL)
1 IF ((FLAGS & (EXTERNAL \! STATIC)) == 0) ...
1 IBM 360/370 7
1 HONEYWELL 6000 6
1 FOR (I = 1; I < ARGC; I++)
1 FOR (GAP = N/2; GAP > 0; GAP /= 2)
1 FAHR = LOWER;
1 EXCEPT = 1;
1 EMP.BIRTHDATE.MONTH (EMP.BIRTHDATE).MONTH
1 ELSE
1 DEC PDP-11 7
1 CHAR *TEMP;
1 CC HELLO.C
1 C = GETCHAR();
1 = += -= *= ?= %= >>= <<= &= \^= \!=
1 8.7.
1 8.1.
1 5.12.
1 5.1.
1 4.7.
1 4.6.
1 4.3.
1 2.2.
1 2.11.
1 19.1.
1 18.2.
1 15.9.
1 15.10.
1 *s=15;}
1 *s=0;}
1 && LINE[N] != '\N')
1 !
1 \);
1 \) \) WHILE(...); \)
1 WRITELINES(LINEPTR, NLINES);
1 WHILE (SCANF("%LF", &V) !=EOF)
1 UNGETCH(C);
1 TYPEDEF STRUCT ( DOUBLE RE, IM; ) COMPLEX;
1 TYPEDEF INT MILES, >KLICKSP;
1 S[LIM-1] = '\0';
1 S[I]=='\N' \!\! S[I]=='\T';I++)
1 S[I++] = N % 10 + '0'; /* GET NEXT CHAR */
1 SWAP(PX, PY) /* INTERCHANGE *PX AND *PY */
1 SUM =0;
1 STRUCT TNODE \( /* THE BASIC NODE */
1 STRUCT TNODE *TALLOC();
1 STRUCT DATE HIREDATE; /*
1 STRUCT DATE D=\( 4, 7, 1776, 186, "JUL"\);
1 STRUCT DATE BIRTHDATE; /*
1 SORT(LINEPTR, NLINES);
1 SIGN = (C == '+') ? 1 : -1;
1 RETURN(P);
1 RETURN(C);
1 RETURN((TREEPTR) ALLOC(SIZEOF(TREENODE)));
1 PUTCHAR(S[I]);
1 PUTCHAR('-');
1 PRINTF("\N");
1 PRINTF("WORLD");
1 PRINTF("INPUT TOO BIG TO SORT\N");
1 PRINTF("HELLO, ");
1 N = -N;
1 MAIN() /* RUDIMENTARY DESK CALCULATOR */
1 LONG ZIPCODE; /*
1 LONG SS_NUMBER; /*
1 LEAP = D.YEAR % 4 == 0 && D.YEAR % 100 != 0
1 INT COND;
1 IF (STRCMP(S, NP->NAME) == 0)
1 IF (P == NULL) \( /* A NEW WORD
1 IF (NLINES >= MAXLINES)
1 IF (I < LIM)
1 IF ((P = ALLOC(STRLEN(S)+1)) != NULL)
1 HIREDATE YEARDAY = DAY_OF_YEAR(&HIREDATE);
1 HASH(S) /* FORM HASH VALUE FOR STRING */
1 FOR(I=1; (C=GETCHAR()) >='0' && C <= '9'; I++)
1 ELSE \(
1 ELSE IF ((P = ALLOC(LEN)) == NULL)
1 DOUBLE SUM, V;
1 DOUBLE SALARY; /*
1 CHAR NAME[NAMESIZE];
1 CHAR ADDRESS[ADRSIZE];
1 CHAR *STRSAVE();
1 CHAR *S;
1 CHAR *PX[], *PY[];
1 CHAR *P;
1 CHAR *ALLOC();
1 C = GETCH();
1 ;
1 8.
1 6.4.
1 4.4.
1 4.11.
1 4.1.
1 3.9.
1 3.8.
1 3.7.
1 3.1.
1 22.
1 2.5.
1 2.3.3.
1 2.3.1.
1 2.1.
1 1.2.
1 1.10.
1 *PN = 10 * *PN + C - '0';
1 *PN *= SIGN;
1 (NULL,0,_READ,0), /*STDIN*/
1 (NULL,0,NULL,_WRITE \! _UNBUF,2) /*STDERR*/
1 (NULL,0,NULL,1), /*STDOUT*/
1 #UNDEF
1 #LINE
1 #INCLUDE <
1 #INCLUDE "
1 #INCLUDE <STDIO.H>
1 #IFNDEF
1 #IFDEF
1 #IF
1 #ENDIF
1 #ELSE
1 #DEFINE
1 "SEPTEMBER",
1 "OCTOBER",
1 "NOVEMBER",
1 "MAY",
1 "MARCH",
1 "JUN",
1 "JULY",
1 "JANUARY",
1 "ILLEGAL MONTH",
1 "FEBRUARY",
1 "DECEMBER"
1 "AUGUST",
1 "APRIL",
1 {
1 p->_size -= nbytes;
1 p->_size = nbytes;
1 p += p->_size;
1 \(
1 \ \\
1 WHILE ((T = GETWORD(WORD, MAXWORD)) \! = EOF)
1 TREEPRINT(ROOT);
1 TEMP = *PX;
1 STRUCT TNODE *ROOT, *TREE();
1 SSCANF(STRING, CONTROL, ARG1, ARG2, ...)
1 SPRINTF(STRING, CONTROL, ARG1, ARG2, ...)
1 SIGN */
1 ROOT = NULL;
1 RETURN(N);
1 RETURN(HASHVAL % HASHSIZE);
1 RETURN(1);
1 RETURN(-1);
1 RETURN (0);
1 PRINTF("BAD TYPE %D IN UTYPE\N", UTYPE);
1 PRINTF("%S\N", UVAL.PVAL);
1 PRINTF("%S\N", *LINEPTR++);
1 PRINTF("%S", LINE);
1 PRINTF("%F\N", UVAL.FVAL);
1 PRINTF("%D\N", UVAL.IVAL);
1 MAIN() /* CONVERT INPUT TO LOWER CASE */
1 KEYTAB[N].KEYCOUNT++;
1 INT N;
1 INT HASHVAL;
1 INT T;
1 IF((*COMP)(V[J], V[J+GAP]) <= 0)
1 IF (UTYPE == INT)
1 IF (P != NULL) \(
1 IF (NUMBER)
1 FOR (N = 0; *S != '\0'; S++)
1 FOR (HASHVAL = 0; *S != '\0'; )
1 FILE _IOB[NFILE] = \(
1 ENUM COLOR \(RED, WHITE, BLACK, BLUE \);
1 ENUM COLOR *CP, COL;
1 ELSE IF (UTYPE == STRING)
1 ELSE IF (UTYPE == FLOAT)
1 ELSE
1 CONTIN: ; CONTIN: ; CONTIN: ;
1 CHAR WORD[MAXWORD];
1 CHAR MSG[] = "SYNTAX ERROR ON LINE %S\N";
1 CHAR *TEMP;
1 ARRAY[N] = V;
1 7.9.4.
1 7.8.
1 7.6.
1 6.3.
1 5.9.
1 5.4.
1 4.8.
1 4.11.2.
1 22.1.
1 2.7.
1 14.3.
1 11.
1 10.6.
1 1.5.4.
1 1.5.2.
1 1.5.
1 1.4.
1 0 -
1 ... ... ...
1 . . .
1 *STRSAVE(S) /* SAVE STRING S SOMEWHERE */
1 *PY = TEMP;
1 *PX = *PY;
1 * & - ! \^ ++ -- SIZEOF(
1 (*EXCH)(&V[J], &V[J+GAP]);
1 (
1 #INCLUDE <STDIO.H>
1 #DEFINE
1 ! \' !
1 }
1 Z = B;
1 WHILE (*P != '\0')
1 WHILE ((C = GETCHAR()) != EOF)
1 WHILE (
1 VERSION 2 */
1 TO BE SORTED */
1 TEMP = *PX;
1 S[I] = C;
1 SWITCH (
1 STRUCT NLIST *NEXT; /* NEXT ENTRY IN CHAIN */
1 SCANF("%2D %F %*D %2S", &I, &X, NAME);
1 RETURN;
1 RETURN(P-S);
1 RETURN(MID);
1 RETURN(C);
1 RETURN( C + '@' - 'A');
1 RETURN
1 NDIGIT[I] = 0;
1 MAX = LEN;
1 LOW = MID + 1;
1 INT TEMP;
1 INT C;
1 INT I;
1 IF (S[I] > 0) {
1 IF (STRCMP(D.MON_NAME, "AUG") == 0) ...
1 IF (INDEX(LINE, ARGV[1] >= 0)
1 IF (I < LIM)
1 IF (ALLOCP + N <= ALLOCBUF + ALOOCSIZE)
1 IF (ALLOCP + N <= ALLOCBUF + ALLOCSIZE)
1 IF ( S[I] != C )
1 HIGH = MID - 1;
1 GOTO
1 FOUND = V[I][J] < 0;
1 FOR(
1 FOR (P=KEYTAB; P < KEYTAB + NKEYS; P++)
1 FOR (J = I - GAP; J >= 0; J -= GAP) \(
1 FLOAT X;
1 FLAGS.IS_EXTERN = FLAGS.IS_STATIC = 1;
1 FLAGS.IS_EXTERN = FLAGS.IS_STATIC = 0;
1 DO
1 DEFAULT:
1 COPY();
1 CONTINUE;
1 CHAR NAME[50];
1 CHAR *P = S;
1 CASE
1 BREAK;
1 A.OUT
1 :
1 6.8.
1 6.7.
1 6.6.
1 6.2.
1 5.7.
1 5.6.
1 5.3.
1 5.
1 3.6.
1 3.5.
1 3.4.
1 3.3. ELSE - IF
1 3.
1 23.
1 2.3.
1 16.5.
1 15.
1 10.4.4.
1 1.5.5.
1 1.5.1.
1 + - * / . % & \!
1 *PY = TEMP;
1 *PX = *PY;
1 #UNDEF
1 ! \^ !
1 }
1 UNGETCH(C);
1 S[I] = C;
1 SWITCH (C) {
1 STRUCT TNODE *RIGHT; /* RIGHT CHILD */
1 STRUCT TNODE *LEFT; /* LEFT CHILD */
1 RETURN(LETTER);
1 RETURN(DIGIT);
1 PUSH(POP()-OP2);
1 PUSH(POP()+POP());
1 PUSH(POP()*POP());
1 PUSH(ATOF(S));
1 PRINTF("\T%F\N",PUSH(POP()));
1 PRINTF("%.20S ... IS TOO LONG\N",S)
1 PRINTF(" %D", NDIGIT[I]);
1 P->
1 NWHITE, NOTHER);
1 N = 10 * N + S[I] - '0';
1 MID = (LOW + HIGH) / 2;
1 LINE[I] = C;
1 LINENO++;
1 INWORD = YES;
1 INWORD = NO;
1 INT TABLE[TABSIZE];
1 INT COUNT; /* NUMBER OF OCCURRENCES */
1 IF (X < V[MID])
1 IF (OP2 != 0.0)
1 IF ((INDEX(LINE, *ARGV) >= 0) != EXCEPT) \
1 I++;
1 HAS ARRIVED */
1 FOR (I = GAP; I < N; I++)
1 ELSE IF (X > V[MID])
1 ELSE /* FOUND MATCH */
1 ELSE
1 DEFAULT :
1 D.MON_NAME[0] = LOWER(D.MON_NAME[0]);
1 CLEAR();
1 CHAR *WORD; /* POINTS TO THE TEXT */
1 CHAR *NAME;
1 CHAR *DEF;
1 CASE '\T':
1 CASE '\N':
1 CASE '9':
1 CASE '8':
1 CASE '7':
1 CASE '6':
1 CASE '5':
1 CASE '4':
1 CASE '3':
1 CASE '2':
1 CASE '1':
1 CASE '0':
1 CASE ' ':
1 B++;
1 ;
1 :%20S: : HELLO, WORLD:
1 :%10S: :HELLO, WORLD:
1 :%10-S: :HELLO, WORLD:
1 :%-20S: :HELLO, WORLD :
1 7.9.3.
1 6.1.
1 4.9.
1 4.10.
1 21.
1 17.2.
1 13.
1 1.8.
1 1.1. H
1 ------------------- -------------
1 ------------------
1 --------------
1 -------------
1 ++NW;
1 ++NL;
1 *W='\0';
1 && (C=GETCHAR()) !=EOF && C!='\N'; ++I)
1 #DEFINE TABSIZE 100
1 ! \) !
1 ! \( !
1 TREEPRINT (P->RIGHT);
1 TREEPRINT (P->LEFT);
1 STRING P, LINEPTR[LINES], ALLOC();
1 STATIC CHAR *ALLOCP = &ALLOCBUF[0];
1 SIZE OF KEYTAB / SIZE OF STRUCT KEY
1 RETURN(VAL[SP++] =F);
1 RETURN(0);
1 RETUR N(0);
1 PRINTF("ERROR: STACK FULL\N");
1 PRINTF("ERROR: STACK EMPTY\N");
1 PRINTF("%4D %S\N", P->COUNT, P->WORD);
1 L-
1 INT I, *IP, F(), *FIP(), (*PFI)();
1 IF (V[I][J] < 0)
1 IF (T == LETTER)
1 IF (DISASTER)
1 CAT FILE1 FILE2 ... \! LOWER>OUTPUT
1 3.2. IF - ELSE
1 20.3.
1 20.
1 2.4.
1 18.1.
1 18.
1 15.12.
1 14.6.
1 1.7.
1 /* INSTALL W AT OR BELOW P */
1 ------------- ---------------------
1 -------------
1 ' \'
1 #DEFINE
1 ! \! !
1 }
1 {
1 V[J] = V[J+GAP];
1 V[J+GAP] = TEMP;
1 TEMP = V[J];
1 STRUCT KEY *BINARY(WORD, TAB, N)
1 STRCPY(S, T) /* COPY T TO S */
1 STRCPY(P,LINE);
1 STRCPY(P, S);
1 SORT(LINEPTR, NLINES, STRCMP, SWAP);
1 SORT(LINEPTR, NLINES, NUMCMP, SWAP);
1 SCANF("%D %F %S", &I, &X, NAME);
1 RETURN(VAL[--SP]);
1 PUTCHAR(ISUPPER(C) ? TOLOWER(C) : C);
1 PRINTF(CONTROL, ARG1, ARG2, ...)
1 PRINTF("\T%.2F\N", SUM += V);
1 PRINTF("%LD: ", LINENO);
1 P->WORD = STRSAVE(W);
1 P->RIGHT = TREE(P->RIGHT, W);
1 P->LEFT = TREE(P->LEFT, W);
1 P->LEFT = P->RIGHT = NULL;
1 P->COUNT++; /* REPEATED WORD */
1 P->COUNT = 1;
1 P == TALLOC(); /* MAKE A NEW NODE */
1 LINE[LEN-1] = '\0'; /* ZAP NEWLINE */
1 LINEPTR[NLINES++] = P;
1 IP=(INT*) CALLOC(N,SIZEOF(INT));
1 INT I;
1 INT *IP;
1 IF (*COMP)(V[J], V[J+GAP]) <= 0)
1 HASHVAL += *S++;
1 FLOAT X;
1 FLAGS &= \^(
1 ELSE IF (COND < 0)/* LOWER GOES INTO
1 DEFAULT:
1 DDD \DDD
1 CHAR S[], T[];
1 CHAR NAME[50];
1 CHAR *CALLOC();
1 7.9.2.
1 7.
1 26.
1 20.2.
1 17.
1 16.1.
1 15.3.
1 14.
1 10.4.2.
1 1.3.
1 1.11.
1 (
1 \^
1 \);
1 \(
1 S[I] =C;
1 SWITCH (*S) \(
1 STRUCT KEY KEYTAB [NKEYS];
1 STRUCT KEY \(
1 STATIC CHAR *ALLOCP = ALLOCBUF;
1 STATIC
1 SCANF(CONTROL, ARG1, ARG2, ...)
1 PRINTF("ZERO DIVISOR POPPED\N");
1 INTO INCREASING ORDER */
1 IF (STRCMP(V[J], V[J+GAP]) <= 0)
1 FLAGS \!= EXTERNAL \! STATIC;
1 EXTERN
1 CR \R
1 CC
1 CASE 'X':
1 CASE 'N':
1 C = GETCHAR();
1 B = 2
1 ASSUME S2 BIG ENOUGH */
1 A = 1;
1 6.9.
1 6.
1 26.2.
1 15.11.
1 1.6.
1 -- L-
1 ++ L-
1 *
1 (
1 UNSIGNED CONTINUE
1 UNION RETURN CASE
1 T++;
1 STRUCT GOTO SWITCH
1 SSCANF(NAME, "TEMP%D", &N);
1 SIZEOF
1 SHORT BREAK ENTRY
1 S++;
1 PRINTF("%S", LINE);
1 P->KEYCOUNT++;
1 MESSAGE = "NOW IS THE TIME";
1 LONG SIZEOF DEFAULT
1 INT EXTERN ELSE
1 FLOAT TYPEDEF DO
1 DOUBLE STATIC WHILE
1 DO
1 CHAR REGISTER FOR
1 CASE
1 22.2.
1 17.1.
1 15.8.
1 15.14.
1 10.5.
1 10.4.3.
1 10.2.
1 ------------------------------
1 -----------------------------
1 ----------------------------
1 -----------------------
1 ----------------------
1 -
1 *AUTO IF
1 (L-
1 &
1 !
1 {
1 WHILE ((S[I] = T[I]) != '\0')
1 WHILE (
1 SWITCH (
1 SWAP(X, Y) /* WRONG */
1 STRCPY(P, S);
1 SPRINTF(NAME, "TEMP%D", N);
1 RETURN(-1);
1 RETURN (-1);
1 PRINTF ("HELLO, WORLD\N");
1 N_WRITTEN=WRITE(FD,BUF,N);
1 N_READ=READ(FD,BUF,N);
1 MONTH_DAY(1977, 60, &M, &D)
1 MID = LOW + (HIGH-LOW) / 2
1 L-
1 INT X, Y;
1 INT I;
1 I++;
1 I = 0;
1 27.
1 17.12.
1 15.4.
1 15.1.
1 10.
1 -------------------
1 ------------- -------------------
1 -------------
1 }
1 UNSIGNED IS_STATIC : 1;
1 UNSIGNED IS_KEYWORD : 1;
1 UNSIGNED IS_EXTERN : 1;
1 STRUCT \( ...\) X,Y,Z;
1 STATIC INT X3D[3][5][7];
1 ROOT = TREE(ROOT, WORD);
1 PFI STRCMP, NUMCMP, SWAP;
1 NL/LF/ \N
1 N++;
1 LSEEK(FD,OFFSET,ORIGIN);
1 INT KEYCOUNT;
1 FSEEK(FP, OFFSET, ORIGIN)
1 FGETS(LINE, MAXLINE, FP)
1 D[
1 CHAR *KEYWORD;
1 CALLOC(N, SIZEOF(OBJECT))
1 BREAK;
1 26.4.
1 17.9.
1 17.3.
1 17.10.
1 16.2.
1 15.7.
1 15.6.
1 15.15.
1 15.13.
1 14.4.
1 14.2.
1 10.4.1.
1 1.5.3.
1 #IF
1 \)
1 TYPEDEF INT (*PFI) ();
1 TYPEDEF FLOAT DISTANCE;
1 STRUCT DATE HIREDATE;
1 P++;
1 MID = (LOW + HIGH) / 2
1 INT KEYCOUNT [NKEYS];
1 FLOAT FA[17], *AFP[17];
1 D = SQRT((DOUBLE) *PX)
1 CHAR *KEYWORD [NKEYS];
1 =
1 25 54.32E-1 THOMPSON
1 17.7.
1 17.13.
1 16.4.
1 15.5.
1 15.2.
1 14.5.
1 14.1.
1 1.9.
1 *
1 (*COMP)(V[J], V[J+GAP])
1 (
1 (
1 #DEFINE STATIC 04
1 #DEFINE LETTER 'A'
1 #DEFINE KEYWORD 01
1 #DEFINE EXTERNAL 02
1 #DEFINE DIGIT '0'
1 \) KEYTAB[] =\(
1 \) FLAGS;
1 \!\!
1 Y = TEMP;
1 X = Y;
1 UNSIGNED
1 UNION
1 TYPEDEF CHAR *STRING;
1 TEMP = X;
1 STRUCT TNODE S, *SP;
1 STRUCT KEY \(
1 STRUCT \(
1 STRUCT
1 SHORT
1 PROG <INFILE>OUTFILE
1 LONG
1 LENGTH LEN, MAXLEN;
1 LENGTH *LENGTHS[];
1 INT X[] = \(1,3,5\);
1 INT TEMP;
1 INT FD;
1 INT
1 FP=FOPEN(NAME,MODE);
1 FLOAT Y[4][3] = \(
1 FLOAT
1 FD=OPEN(NAME,RWMODE);
1 FD=CREAT(NAME,PMODE);
1 EXTERN CHAR *ALLOC();
1 DP=(DOUBLE*) ALLOC(SIZEOF(DOUBLE));
1 DOUBLE *DP;
1 DOUBLE
1 CHAR *LINEPTR[LINES];
1 CHAR
1 BINARY(WORD, TAB, N)
1 28.
1 20.1.
1 17.8.
1 17.4.
1 17.11.
1 10.3.
1 1.
1 *SYMTAB[I].UVAL.PVAL
1 *DP=22.0/7.0;
1 #IF DEF
1 }
1 {
1 \) UVAL;
1 UNION \(
1 TYPEDEF INT LENGTH;
1 TO COME TO THE AID
1 SYMTAB[I].UVAL.IVAL
1 STRUCT \(
1 STRUCT TNODE *LEFT;
1 STRUCT PERSON EMP;
1 RETURN((M>C) ? M:C);
1 PROG \! ANOTHERPROG
1 PRINTF("%D\N", *PX)
1 OF THEIR PARTY.
1 NOW IS THE TIME
1 MILES DISTANCE;
1 M = (A>B) ? A:B;
1 INT UTYPE;
1 INT M;
1 INT IVAL;
1 INT FLAGS;
1 INT DAY_TAB[][13];
1 INT DAY_TAB[2][13];
1 INT (*DAY_TAB)[13];
1 GOTO
1 FOR ALL GOOD MEN
1 FLOAT Y[4][3] = \(
1 FLOAT FVAL;
1 FLOAT *Y[4][3] = \(
1 FILE *FOPEN(), *FP;
1 F(DAY_TAB)
1 EXTERN KLICKSP METRICP;
1 EMP.BIRTHDATE.MONTH
1 DOUBLE ATOF(), *DP;
1 COMPLEX Z, *ZP;
1 CHAR *PVAL;
1 CHAR *NAME;
1 => > =< <
1 2:FOR ALL GOOD MEN
1 26.5.
1 17.6.
1 17.5.
1 16.7.
1 16.6.
1 1, 3, 5, 2, 4, 6, 3, 5, 7
1 (STRUCT TNODE *) P
1 #INCLUDE <STDIO.H>
1 #INCLUDE <FILENAME>
1 #INCLUDE "FILENAME"
1 " Text View V1 ", "HISOFT-C Compiler V1.1B", " About ""INFORCOM"""
1 \^
1 \);
1 \) SYMTAB[NSYM];
1 \)
1 \( "CASE", 0 \),
1 \( "BREAK", 0 \),
1 \(
1 \(
1 \!
1 WHILE (
1 STRUCT DATE \(
1 STRUCT DATE *PD;
1 SCANF("%D", &N);
1 S.RIGHT->TWORD[0]
1 OTHERPROG \! PROG
1 LSEEK(FD,0L,2);
1 INT MAX(A, B, C)
1 INT A, B, C;
1 INT *DAY_TAB[13];
1 INT YEARDAY;
1 INT YEAR;
1 INT MONTH;
1 INT DAY;
1 F(A,(T=3,T+2),C)
1 ECHO HELLO, WORLD
1 CHAR MON_NAME[4];
1 ?:
1 >> <<
1 == !=
1 < > <= >=
1 56789 0123 45A72
1 26.3.
1 26.1.
1 25.
1 16.3.
1 10.1.
1 /* ... */
1 ---------
1 + -
1 * / %
1 (1), (2), (3), (4)
1 &&
1 &
1 #DEFINE YES 1
1 "WHILE", 0
1 "UNSIGNED", 0,
1 "DEFAULT", 0,
1 "CONTINUE", 0,
1 "CHAR", 0,
1 "CASE", 0,
1 "BREAK", 0,
1 \^
1 \);
1 \) UVAL;
1 \) KEYTAB [NKEYS];
1 UNION U_TAG \(
1 TYPEDEF
1 SYSTEM("DATE");
1 STRUCT TNODE \(
1 STRUCT TNODE *RIGHT;
1 STRUCT TNODE *LEFT;
1 STRUCT KEY \(
1 STRUCT DATE D;
1 STATIC
1 SIZEOF(OBJECT)
1 SCANF("%D", N);
1 REGISTER
1 LSEEK(FD,0L,0);
1 INT IVAL;
1 INT COUNT;
1 INT A[10][10];
1 INT *B[10];
1 FPUTS(LINE, FP)
1 FLOAT FVAL;
1 FIND -X -N THE
1 EXTERN
1 DAY_TAB [I, J]
1 CHAR TWORD[20];
1 CHAR *PVAL;
1 CHAR *MESSAGE;
1 AUTO
1 9.1.
1 16.8. TYPEDEF
1 10.4.
1 0.1.
1 -- L-
1 -
1 ++ L-
1 *
1 (
1 & L-
1 "I AM A STRING"
1 !
1 Y = *(PX + 1)
1 UNGETC(C,FP)
1 SWAP(&A, &B);
1 STRUCT KEY *
1 RETURN;
1 RETURN
1 PROG>OUTFILE
1 INWORD = YES;
1 INT X[3][5];
1 INT *[3]
1 INT *()
1 INT *
1 INT (*COMP)()
1 INT (*)[3]
1 INT (*)()
1 INT
1 HELLO, WORLD
1 FIND -NX THE
1 DAY_TAB[I][J]
1 ADD 2 3 4 + *
1 16.
1 () [] . ->
1 ( 3, 5, 7 ),
1 ( 2, 4, 6 ),
1 ( 1, 3, 5 ),
1 }
1 {
1 WHILE (*P)
1 SWAP(A, B);
1 PUTC(C,FP)
1 PROG<INFILE
1 PA = &A[0]
1 INT X,Y,Z;
1 INT X = 1;
1 INT F (1+2)
1 INT ARR[];
1 INT *COMP()
1 F(ARR)
1 ENTAB M +N
1 CAT X.C.Y.C
1 C=GETC(FP)
1 (*PD).YEAR
1 }
1 {
1 \) *P;
1 \)
1 \(
1 T DI
1 STRUCT \(
1 SP->COUNT
1 PD->YEAR
1 INT(*FUNCP)();
1 INT X, Y;
1 INT X 1;
1 INT F();
1 INT A[10]
1 INT *ARR;
1 INT KEYCOUNT;
1 G(FUNCP)
1 G(F);
1 F(ARR)
1 F(&A[2])
1 DEFAULT:
1 CONTINUE;
1 CHAR S[];
1 CHAR *S;
1 CHAR *P;
1 CHAR *KEYWORD;
1 *PX += 1
1 Y = X;
1 X = -1
1 X = *PA
1 TAIL -N
1 S.LEFT
1 PY = PX
1 PA = A
1 INT *PA
1 F(A+2)
1 BREAK;
1 AUTO INT DISTANCE;
1 == !=
1 ++P->X
1 *PX = 0
1 *(PA+1)
1 (*PX)++
1 USIGNED INT
1 SHORT INT
1 S = T
1 P++;
1 P < Q
1 P + N
1 LONG INT
1 LONG FLOAT
1 D[ ]
1 ...
1 . . .
1 - \^
1 INT X;
1 INT *Y;
1 D()
1 *D
1 (*FUNCP)();
1 IN TAB[0]...TAB[N-1] */
1 ;
1 ...,
1 LEFT SUBTREE */
1 15.11.94
1
1
1
1
1
1
1